Citation :
' Récupération des informations du fichier INI pour les associer dans leurs variables respectives.
Const ForReading = 1
Dim oFSO, Ts, Cs, s
Set OFSO = WScript.CreateObject("Scripting.FileSystemObject" )
fichier_ini = "Config.ini"
Set lect = oFso.OpenTextFile(fichier_ini, ForReading)
While Not lect.AtEndOfStream
Ligne = lect.ReadLine
propriete = Left(Ligne,InStrRev(Ligne,"=" ))
value = right(Ligne, len(Ligne) - len(Propriete))
if propriete = "CHEMINSOURCE =" Then Cs = value
if propriete = "TABLESOURCE =" Then Ts = value
Wend
lect.close
msgbox("variable1 = " & Cs & vbCrLf & "variable2 = " & Ts)
|
