cherche script liste dossier sous dossier et leur fichier

**zitoune31** · 01/03/2011, 00h23

Bonjour,

voilà mon premier post étant donner que je ne trouve pas de solution :
je cherche un script vbs ou batch permettant un listing de dossier et sous dossier ainsi que les fichier s'y trouvant et cela dans une page html.

j'ai un dossier AUDIO dont j'aimerai faire afficher dans un page html son contenue.

sachant que dans mon dossier AUDIO figure X sous dossier ex:
repertoire :AUDIO
sous repertoire :
rap
r&b
varieter
....
et dans ces sous repertoire figure également les repertoire des artiste en question
et pour finir les fichier .mp3

le but de la création voulu de cette liste en forma html
est que j'ai créer une petite application en vb permettant de se connecter à mon ftp
et j'aimerai y insérer CETTE LISTE HTML de mes fichier mp3 pour que l'utilisateur n'es pas à parcourir X répertoires pour savoir ce qui s'y trouve.

en vous remerciant du temps consacrer et de votre aide

**pitchalov** · 01/03/2011, 15h05

Salut.

Pour faire ce listing, une petite procédure récursive de ce type devrait t'aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub ListDirectory(objFolder)
  For Each objFile In  objFolder.Files
    WScript.Echo "Fichier : " & objFile.Name
  Next
  For Each objSubFolder In objFolder.SubFolders
    WScript.Echo "Dossier : " & objSubFolder.Name
    ListDirectory(objSubFolder )
  Next
End Sub
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objMyFolder = objFso.GetFolder("C:\AUDIO")
ListDirectory objMyFolder

Après pour l'écriture en HTML, il te suffit de remplacer les Echo par l'écriture des infos qui t'intéressent dans un fichier en langage HTML et le tour est joué.

Bonne continuation

**hackoofr** · 01/03/2011, 16h14

pour la 2ème partie de votre code càd la Création de la page en HTML inspire-toi de Ce Vbscript qui va peut-être vous donner une idée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
'Lister les images au format JPEG d'un répertoire dans une page html
Set fso = CreateObject("Scripting.FileSystemObject")
mapage="<html>"
For Each fichier In fso.GetFolder(".\").Files
      cheminFic = fso.GetFolder(".\") & "\" & fichier.name & nbsp
      If fichier.type="Image JPEG" Then
       mapage = mapage & "<img src=""" & cheminFic & """><BR><BR>" & nbsp
      End If
Next
mapage = mapage & "</html>"
Set tf = fso.CreateTextFile(".\MesImages.html", True)
tf.Write (mapage)
WScript.Quit

Donc c'est à vous maintenant le tour pour combiner les 2 codes afin de réaliser votre Script Final. Bonne Programmation

**hackoofr** · 02/03/2011, 06h46

Bonjour;

Voila un script qui fait Lister les Fichiers au format mp3 d'un répertoire dans une page html

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Lister les Fichiers au format mp3 d'un répertoire dans une page html
Set fso = CreateObject("Scripting.FileSystemObject")
mapage="<html>"
For Each fichier In fso.GetFolder(".\").Files
      cheminFic = fso.GetFolder(".\") & "\" & fichier.name & nbsp
	  'msgbox cheminFic
	  strExt =  fso.GetExtensionName (fichier.Name)
      If strExt="mp3" Then
       mapage = mapage & "<a href=""" & cheminFic & """>"& fichier.name &"</a><BR><BR>" & nbsp
      End If
Next
mapage = mapage & "</html>"
Set tf = fso.CreateTextFile(".\mp3.htm", True)
tf.Write (mapage)
WScript.Quit

**hackoofr** · 02/03/2011, 19h00

voila essaye ce script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
start_folder = "c:\Audio" 'Si votre dossier Audio se trouve a la racine c:\ sinon change le chemin
htmfile = "mp3.htm"
ext = "mp3"
count=0
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(start_folder)
Set ws = CreateObject("WScript.Shell")
Set outfile = fso.CreateTextFile(htmfile)
 
outfile.WriteLine "<html><body>"
ListDirectory folder, ext
outfile.WriteLine "<font color=red>Le Nombre de fichiers de type mp3 est "& count & "</font>"
outfile.WriteLine "</body></html>"
outfile.Close
ws.Run htmfile
 
Sub ListDirectory(folder, ext)
    For Each file In folder.Files
        If UCase(ext) = UCase(fso.GetExtensionName(file.Name)) Then
            outfile.WriteLine "<center><a href='" & file.Path & "'>" & file.Name & "</a><br>"
            count=count+1
        End If
    Next
    For Each fldr In folder.subfolders
        ListDirectory fldr, ext
    Next
End Sub

**zitoune31** · 03/03/2011, 00h52

Envoyé par hackoofr

voila essaye ce script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
start_folder = "c:\Audio" 'Si votre dossier Audio se trouve a la racine c:\ sinon change le chemin
htmfile = "mp3.htm"
ext = "mp3"
count=0
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(start_folder)
Set ws = CreateObject("WScript.Shell")
Set outfile = fso.CreateTextFile(htmfile)
 
outfile.WriteLine "<html><body>"
ListDirectory folder, ext
outfile.WriteLine "<font color=red>Le Nombre de fichiers de type mp3 est "& count & "</font>"
outfile.WriteLine "</body></html>"
outfile.Close
ws.Run htmfile
 
Sub ListDirectory(folder, ext)
    For Each file In folder.Files
        If UCase(ext) = UCase(fso.GetExtensionName(file.Name)) Then
            outfile.WriteLine "<center><a href='" & file.Path & "'>" & file.Name & "</a><br>"
            count=count+1
        End If
    Next
    For Each fldr In folder.subfolders
        ListDirectory fldr, ext
    Next
End Sub

tout d’abords bonjour et grand merci a vous et particulièrement à " hackoofr " de son aide et de ce script magique qui se rapproche le plus de ce que je recherche.
j'ai continuer à chercher de mon coter en vain enfin faut dire que j'ai vraiment aucune connaissance j'apprend sur le tas en trouvant des scripts et en essayant de les combiner un à un pour l'utilisation que je veux en faire donc vous imaginer le temps passer dessus ( et les erreur j'imagine laisser dans le scripte) BREF ....
pour faire suite à votre script celui-ci m'affiche parfaitement tout mes .mp3 dans une page html,
en faite si ce n'est pas trop abuser de ma part (personnellement je pense qu'un peu quand même mais j'aimerai réellement simplifier l'utilisateur pour télécharger le titre désirer).

ce qui est rechercher a rajouter dans ton script:
1/ les fichier wma ( mais sa je pense que je réussirai a trouver comment le rajouter derrière (ext = "mp3").
2/très important c'est "l'emplacement" des fichiers à afficher dans la page html.
ex détailler POUR UN GENRE ET UN SEUL ARTISTE qui se trouve sur mon pc:

C:\AUDIO (ayant 10 style soit 10 dossier)

C:\AUDIO\reggea\ (ayant 10 artistes soit 10 dossier)

C:\AUDIO\reggea\Alpha Blondy (ayant 10 albums soit 10 dossier)

C:\AUDIO\reggea\Alpha Blondy\Jah Victory\ (les fichier .MP3)

en faite ce que je cherche à faire c'est genre une page comme ca :
(c'est ce qui est en gras qui devra être afficher sur la page html le reste c'est pour vous décrire l'idée)

c:\audio
style 1
style 2
style 3
ect ..

c:\audio\style1
artiste 1
artiste 2
artiste 3
ect ..

c:\audio\style1\artiste 1
album 1
album 2
album 3
ect ..

c:\audio\style1\artiste 1\albums 1
fichier 1
fichier 2
fichier 3
ect ..
c:\audio\style1\artiste 2
album 1
ect ect ....

car après j'ai l'idée d'essayer de faire des lien si vous voyer ce que je veux dire ??!!!

VOILA j'ai essayer au mieux de me faire comprendre j'espère y avoir arriver,
vous voyer le but que je veux accomplir si vous penser que je dois utiliser autre technique ou autre n'hésitez pas en m'en faire part
cordialement et merci encore de votre aide et du temps accorder

**hackoofr** · 03/03/2011, 02h16

Envoyé par zitoune31

1/ les fichier wma ( mais sa je pense que je réussirai a trouver comment le rajouter derrière (ext = "mp3").
2/très important c'est "l'emplacement" des fichiers à afficher dans la page html.

Voila essaye cette modification avec les extensions ajoutés wma et rm et d'autres informations sur ces fichiers Nom,Chemin,Taille,Type,Modifié le,Dernier Accès comme Bonus

:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
start_folder = "C:\Audio"
htmfile = "Fichiers_Audio.htm"
ext = Array("mp3","wma","rm") 'extensions ajoutés wma et rm
count=0
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(start_folder)
Set ws = CreateObject("WScript.Shell")
Set outfile = fso.CreateTextFile(htmfile)
strHTML="<html><body><style type='text/css'>"&_
    "a:link {color: #F19105;}"&_
    "a:visited {color: #F19105;}"&_
    "a:active {color: #F19105;}"&_
    "a:hover {color: #FF9900;background-color: rgb(255, 255, 255);}"&_
 "</style>"
strHTML=strHTML &"<center><h2><B><font color=red>Le Nombre de fichiers de type mp3, wma et rm est de [COUNT]</font></B></h2></center>" & _
              "<table border='1' style='border-collapse: collapse; font size:9pt' bordercolor='#CCCCCC' width='100%' id='Table1'>" & _
              "<tr><td><center><strong>Nom</strong></center></td><td><center><strong>Chemin</strong></center></td>" & _
              "<td><center><strong>Taille<strong></center></td><td><center><strong>Type</strong></center></td>" & _
              "<td><center><strong>Modifié le</strong></center></td><td><center><strong>Dernier Accès</strong></center></td></tr>" 
    ListDirectory folder, ext
strHTML = strHTML & "</table>"
strHTML = Replace(strHTML, "[COUNT]", Count) 
outfile.WriteLine strHTML &"</body></html>"
outfile.Close
ws.Run htmfile
 
Sub ListDirectory(folder, ext)
    For Each objFile In folder.Files
If (UCase(ext(0)) = UCase(fso.GetExtensionName(objFile.Name)) OR UCase(ext(1)) = UCase(fso.GetExtensionName(objFile.Name)) OR UCase(ext(2)) = UCase(fso.GetExtensionName(objFile.Name))) Then
            count=count+1
	    strFileName = objFile.Name
            strFilePath = objFile.ParentFolder
            strFileSize = FormatNumber((objFile.Size/1024),2) + " Kb"
            strFileType = objFile.Type
            strFileModified = objFile.DateLastModified
            strFileAccess = objFile.DateLastAccessed
 
            strHTML = strHTML & "<tr><td>" & strFileName & "</td><td><a href='" & strFilePath & "'>" & _
                                strFilePath & "</a></td><td>" & strFileSize & "</td>" & _
                                "<td>" & strFileType & "</td><td>" & strFileModified & "</td>" & _
                                "<td>" & strFileAccess & "</td></tr>"
        End If
    Next
    For Each fldr In folder.subfolders
        ListDirectory fldr, ext
    Next
End Sub

**zitoune31** · 03/03/2011, 23h02

bonsoir,

j'ai tester votre dernier script je dois dire que c'est une merveille !!!!
c'est presque tout dont j'ai besoin.
effectivement j'aurais pas forcément trouver de but en blanc comment rajouter d'autre extension que le mp3 mais avec ça nikel j'ai pu y rajouter rar, zip ...
pour résumer je dois dire avant tout MERCI, c'est vrai que j'aurai bien aimer une mise en page html comme citer plus haut a savoir :
c:\audio
style 1
style 2
style 3
ect ..

c:\audio\style1
artiste 1
artiste 2
artiste 3
ect ..

c:\audio\style1\artiste 1
album 1
album 2
album 3
ect ..

c:\audio\style1\artiste 1\albums 1
fichier 1
fichier 2
fichier 3
ect ..
c:\audio\style1\artiste 2
album 1
ect ect ....

mais j'imagine la complexité que cela doit impliquer.
j'aurai une dernière petite question et je pourrai mettre quelque soit votre réponse ce post en résolu.
es-ce possible de vous poster mon code VB qui es en relation à la création de se poste pour que vous puissiez me donner votre avis et voir même pourquoi pas plus, genre amélioration\ correction de celui-ci ?

**hackoofr** · 04/03/2011, 04h20

Envoyé par zitoune31

bonsoir,
j'aurai une dernière petite question et je pourrai mettre quelque soit votre réponse ce post en résolu.
es-ce possible de vous poster mon code VB qui es en relation à la création de se poste pour que vous puissiez me donner votre avis et voir même pourquoi pas plus, genre amélioration\ correction de celui-ci ?

Salut

Oui Bien sûr en mettant ton code entre les balises

cherche script liste dossier sous dossier et leur fichier

VBScript

Vue hybride

Discussions similaires

Partager

Partager