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 |
Partager