listar videos dentro de una carpeta usando FileFindFirstFile

Tus preguntas. Algoritmos o Grupos de Comandos formando Programas Escripts.

listar videos dentro de una carpeta usando FileFindFirstFile

Notapor botxtrem » 30 Mar 2017, 00:36

Hola otra ves resulta que estoy usando el comando
Código: Seleccionar todo
FileFindFirstFile ()
para listar el contenido de una carpeta pero solo lo ques videos el problema es que no todos los videos son ".mp4" tanbiem existen ".avi" y otros formatos. y no logro aserlo funcionar . les dejo un ejemplo.



Código: Seleccionar todo
Local $hSearch = FileFindFirstFile ("*.mp4","*.avi","*.wmv")

   ; Check if the search was successful, if not display a message and return False.
   If $hSearch = -1 Then
      MsgBox($MB_SYSTEMMODAL, "", "Error: No files/directories matched the search pattern.")
      Return False
   EndIf
Local $sFileName = "", $iResult = 0
While 1
      $sFileName = FileFindNextFile($hSearch)
      ; If there is no more file matching the search.
      If @error Then ExitLoop
WEnd


el codigo en si da error .

otra duda es como octener el nombre del video sin su extencion ejemplo "casa.avi" a solo "casa"
espero su ayuda gracias :smt024
Imagen
botxtrem
 
Mensajes: 6
Registrado: 28 Mar 2017, 08:09
Ubicación: Nicaragua

Re: listar videos dentro de una carpeta usando FileFindFirst

Notapor Dany » 30 Mar 2017, 01:29

Hola. AutoIt contiene una serie de funciones prescritas que te pueden ayudar mucho. En tu caso puedes usar algo así:

Código: Seleccionar todo
#include <File.au3>
#include <Array.au3>
#include <File.au3>

Local $sDirectory = "D:\Musica\"

Local $aFiles= _FileListToArrayRec($sDirectory, "*.wmv;*.mp4;*.avi", $FLTAR_FILES, $FLTAR_NORECUR,$FLTAR_NOSORT,$FLTAR_FULLPATH)
_ArrayDisplay( $aFiles, "Videos") ;Just for debug


;Escribir Obetener El nombre del video
Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = ""
Local $aPathSplit = ""
For $i=1 to  $aFiles[0]
   $aPathSplit=_PathSplit($aFiles[$i], $sDrive, $sDir, $sFileName, $sExtension)
   ConsoleWrite("FileName: " & $sFileName & @TAB  & "FileName without Extension: " & $sFileName & $sExtension  & @CRLF)
Next



Saludos :smt027
    ............................................Imagen
    ......................................Imagen
Avatar de Usuario
Dany
Profesional del Autoit
 
Mensajes: 637
Registrado: 28 Mar 2012, 22:49


Volver a Soporte (Ayuda >Hacker)

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 5 invitados

cron