Lire/écrire fichier .ini

Version imprimable

03/10/2006, 15h51
chillansky

Lire/écrire fichier .ini

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 ;-)

Bonjour,

Voilà un début :

Code:

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

03/10/2006, 16h56
chillansky

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