Créer une arboresecence pour indexer un lecteur (MP3 par exemple)

Le but de ce script est de lire le contenu de mon lecteur MP3, de copier l'arborescence des dossiers et fichiers dans un log, afin de pour voir reproduire la playlist plus tard en recopiant automatiquement à partir de mon disque dur, (dont le dossier MUSIQUE est lui même indexé...).

La fonction Showtree (qui s'appelle elle-même) est le noyau du programme.

------ début du script vbs

Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")

TextFile = "testfile4.txt"

oFSO.CreateTextFile TextFile,ForWriting

Set o2Stream = oFSO.OpenTextFile(TextFile,8) ' 8= Ajout

Showtree oFSO.GetFolder ("H:\")

Sub Showtree (oFolder)
Dim oSubFolder,oFile
WScript.Echo"-------------------"
WScript.Echo oFolder.Path
WScript.Echo"-------------------"
sLine=oFolder.Path
o2Stream.WriteLine sLine
For Each oFile In oFolder.Files
WScript.Echo oFile.name
sLine=oFile.name
o2Stream.WriteLine sLine
Next
For Each oSubfolder In oFolder.SubFolders
Showtree oSubFolder
Next
End Sub

 

------ fin du script vbs

 

Cela donne un log du genre:

-------------------
H:\
-------------------
Poids_LecteurMp3_01.03.vbs
Arrested Development - Best Of - 13 - Mama's Always On Stage.mp3
-------------------
H:\Mozart_Requiem in D minor, K.626 - Harnoncourt sacred works disc 13
-------------------
1307 - Confutatis.mp3
1308 - Lacrimosa.mp3
1309 - IV. Offertorium- Domine Jesu.mp3
1310 - Hostias.mp3
1311 - V. Sanctus.mp3
1312 - VI. Benedictus.mp3
1313 - VII. Agnus Dei.mp3
1314 - VIII. Communio- Lux aeterna.mp3
-------------------
H:\Flute et Harpe
-------------------
Track01.MP3
Track02.MP3
Track03.MP3
-------------------
H:\FERRE
-------------------
Léo Ferré - 10 - Ils ont voté.mp3
10- LE CHIEN.mp3
05 - Avec le temps.mp3
01 - Pépé.mp3
02 - Paname.mp3
03 - Les Anarchistes.mp3
07 - C'est extra.mp3
10 - La solitude.mp3
-------------------
H:\FERRE\ARAGON
-------------------
09-Je chante pour passer le temps.mp3
03-Est ce ainsi que les hommes vivent.mp3
10-Je t'aime tant.mp3
04-Il n'aurait fallu.mp3
-------------------
H:\FERRE\Ferre_Avec_le_temps1
-------------------
Ferre_Avec_le_temps1_12.mp3
Ferre_Avec_le_temps1_08.mp3
Ferre_Avec_le_temps1_04.mp3
Ferre_Avec_le_temps1_09.mp3
Ferre_Avec_le_temps1_13.mp3
-------------------
H:\DIVERS
-------------------
00 - Hesitation Blues - Janis Joplin W_Jorma Kaukonen - The Typewriter Tape 6_25_64.mp3
Beach Boys - Fun, Fun, Fun.mp3
Barbara Lynn - This Is The Thanks I Get.mp3
Beach Boys - Surfin Bird (Full Metal Jacket Soundtrack).mp3
CENTURIANS - 01 - Bullwinkle Pt II.mp3
Shania Twain - Come On Over - 02 - When.mp3
TheCure-.mp3
TheCure1.mp3
the_cure.mp3
-------------------
H:\Jackson
-------------------
Track01.MP3
Track04.MP3
Track05.MP3
-------------------
H:\BEATLES
-------------------
01 Drive My Car.mp3
[BEATLES-ABBEY ROAD] - Track10.mp3
06 You're Going To Lose That Girl.mp3
-------------------
H:\NINA HAGEN
-------------------
Nina Hagen - Nina Hagen Band - 07 - Heiss.mp3
05 - Herrmann hiess er.mp3
04 - Wenn ich ein Junge wär ( Live ).mp3
-------------------
H:\PRINCE
-------------------
[PRINCE-§] - Track09.mp3
[PRINCE-§] - Track07.mp3
[PRINCE-§] - Track06.mp3
Exit code: 0 , 0000h