Discussion :

[chillansky]

Bonjour,

Voila ma question: j'ai un simple script VBS qui doit lire sa configuration dans le fichier config.ini qui lui est associé.

Seulement je ne trouve pas comment faire. J'ai cherché sur internet mais les script utilisant GetPrivateProfileString ne fonctionne pas (ou je n'arrive pas) avec un fichier VBS.

Si quelqu'un à un solution elle est la bienvenue !

D'avance merci ;-)

[pc75]

Bonjour,

Voilà un début :

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
 
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("FICHIER.INI", ForReading)
on error resume next
Do While f.AtEndOfStream <> True
   ReadTextFileTest = f.ReadLine
   Pos = instr(ReadTextFileTest, "=")
   Entree = Mid(ReadTextFileTest, 1, Pos - 1)
   if Entree = "ReportFileDirectory" then
      Chemin = Mid(ReadTextFileTest, Pos + 2)
      Chemin = Left(Chemin, Len(Chemin) - 1) & "\"
      Exit do
   end if
loop
on error goto 0
f.Close
Set f = Nothing

[chillansky]

Merci pour le code. ça va m'aider !