1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Dim objFileSystemObject, fsO, FL, FD, strFolderPath, strFolderPath1, strFolderPath2, oFSO, oFld, oFolder
Dim oSh, oExec, sK, ScriptPath, TimeDebut
Dim cheminIni
Path = Left(WScript.ScriptFullName, InStr(WScript.ScriptFullName, WScript.ScriptName)-1)
cheminIni=Path & "Chemins_rep.ini"
Set oFs=CreateObject("Scripting.FileSystemObject")
If oFs.FileExists(cheminIni) Then
Set oFile=oFs.OpenTextFile(cheminIni)
Execute oFile.ReadAll()
Else
Msgbox "Le fichier (.ini) n'a pas " & Chr(233) & "t" & Chr(233) & " trouv" & Chr(233) & " !!!"
WScript.Quit
End If
Set oFile=Nothing |
Partager