Liste avi

0/5 (4 avis)

Snippet vu 4 842 fois - Téléchargée 35 fois

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

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)

A voir également

Ajouter un commentaire Commentaires
Messages postés
235
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 mai 2011
2
Code sympa et utile mais il manque les déclarations, ce qui est assez important, notamment le "Fil" qui sort d'on ne sait où...pour le For Each...ou alors les variables sans attributs...

Pour les sous-repertoire, il faut utiliser l'attributs SubFolders de Folder créé lors du Set Folder = fs.GetFolder(repertoire), et qui contient la liste des sous-répertoire.
Messages postés
62
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
14 février 2010

ok je vais voir ton source et des que j'ai 5 min j'ameliore le mien pour les sous repertoire ou pourquoi pas un qui recherche les films dans tout le disque.
Messages postés
468
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
30 août 2007
2
hmmm j'ai entendu dire que les CreateObject été pas trè académique a utilisé...de plus si y'a des sous répertoire c'est mort... non ?

j'ai posté une source y'a quelques temps qui liste les fichiers d'un répertoire et de ses sous repertoire :

http://www.vbfrance.com/code.aspx?ID=22318

vala
++
juva
Messages postés
2167
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
1
Pour l'intérêt je trouve ça moyen mais le code est court et clair, c'est interessant pour comprendre comment manipuler les fichiers avec des scripts. Bonne source
@ +
MadMatt

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.