listar videos dentro de una carpeta usando FileFindFirstFile

[botxtrem]

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

[Dany]

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