Délimiteur en VBS

Bonjour,

je suis débutant en vbs et je souhaite faire un petit programme identique a celui que j'ai fait en dos
ci-dessous mon code en dos

Code:

---

1 2 3 4

for /f "tokens=1,2 delims=- " %%i in (c:\temp\fichier.conf) do ( move %%i %%j >> "c:\log\resultat.log"   )

---

le fichier.conf contient

Citation:

---

[source - destination]

c:\rep1\toto\out - d:\rep1\toto\in
c:\donnee\titi\out - d:\data\titi\in
c:\carto\tata\out - d:\gk\tata\in

---

Enfin dans ce fichier conf il y a dans les 200 lignes
Le but du code ci-dessus est de entrer dans chaque répertoire et déplacer le contenu de source vers le répertoire de destination et ce de chaque ligne se trouvant dans le fichier.conf par une boucle.

Je souhaite le faire en vbs mais je ne connais pas ce langage :(
en cherchant un peut, il faudrait utiliser split mais je ne sais vraiment pas comment.

Quelqu'un pourrait il m'aider ?

Seb

:salut:
un début de code ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Const ForReading = 1, ForWriting = 2 Dim oFso, f Set oFso = CreateObject("Scripting.FileSystemObject") Set f = oFso.OpenTextFile("c:\temp\fichier.conf", ForReading) while Not f.AtEndOfStream SrtLine = f.ReadLine MsgBox SrtLine,64,"Info" Tab = Split(SrtLine,"-") For i = LBound(Tab) to UBound(Tab) - 1 MsgBox "Le dossier "& DblQuote(Tab(i)) & " va être déplacé vers "& DblQuote(Tab(i+1)),64,"Information" Next Wend f.Close   Function DblQuote(Str) DblQuote = chr(34) & Str & chr(34) End Function

---