Liste avi
Contenu du snippet
petit script qui liste proprement dans un fichier texte les noms de fichier avi
des repertoires spécifié
ca permettra d'imprimer une liste de films et montrer au copain ce qu'on a
il faut indiqué le chemin complet a l'inputbox (copiez/collez a partir de la barre d'adresse de l'explorer)
des repertoires spécifié
ca permettra d'imprimer une liste de films et montrer au copain ce qu'on a
Source / Exemple :
Dim fs,flag,fich,i
Set fs = CreateObject("Scripting.FileSystemObject")
set fich= fs.OpenTextFile("film.txt",2,True)
flag=1
Do Until flag<>1
repertoire = InputBox("Entrez le nom de repertoire contenant les films","by racattac13")
i=0
If repertoire<>"" Then
Set Folder = fs.GetFolder(repertoire)
Set files = Folder.Files
fich.WriteLine("----------------------------------------------------------")
fich.WriteLine("Film dans le repertoire : "&repertoire)
fich.WriteLine("----------------------------------------------------------")
for each fil in files
GetAnExtension = fs.GetExtensionName(repertoire&"\"&fil)
If GetAnExtension="avi" then
fich.WriteLine(fil.Name)
i=i+1
end if
next
fich.WriteBlankLines(1)
fich.WriteLine("Nombre de films dans ce repertoire : "&i)
fich.WriteBlankLines(2)
End If
flag=msgbox("Un autre repertoire?",1,"racattac13")
Loop
Set ws= CreateObject("WScript.Shell")
ws.Run "film.txt"
Conclusion :
il faut indiqué le chemin complet a l'inputbox (copiez/collez a partir de la barre d'adresse de l'explorer)