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)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.