Bonjour !

Alors je cherche à faire un script qui me permet de rechercher dans chaque fichier texte (playlist .m3u en fait...), contenu dans le dossier où j'exécute le script, le mot '\MUSIC\" et de le remplacer par "MUSIC\". C'est Le premier "\" qui m'embête et que je veux supprimer.

Exemple :

#EXTM3U
\MUSIC\Maxime Dangles\MUSIC 2009\Strawberry.mp3
\MUSIC\Richard Wagner\Classique\La Chevauchée des Walkyries.mp3
Doit devenir :

#EXTM3U
MUSIC\Maxime Dangles\MUSIC 2009\Strawberry.mp3
MUSIC\Richard Wagner\Classique\La Chevauchée des Walkyries.mp3
Donc le premier "\" doit disparaître.

J'ai essayer ça mais c'est pas concluant...

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
Dim oFSO,oFl
Dim chemin
Dim AN
Dim UTF
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const ModeAscii = 0, ModeUnicode = -1
Dim texte
 
chemin = "I:\"
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FolderExists(chemin) Then
 For each oFl in  oFSO.GetFolder(chemin).Files
  if Right(oFl.Name,3)="m3u" Then
 
   Replace("\MUSIC\","\MUSIC\","MUSIC\")
 
 
  End If
 Next
End If
 
Wscript.echo "Finish !"

Merci pour votre aide !