Bonjour,
Dans ce bout de code, je lis un fichier pour extraire des mots pour les mettre dans des variables.
Cela se passe parfaitement mais un peu plus loin, je lis denouveau le même fichier.
Bien évidemment, il me donne une erreur comme quoi un autre processus lit le fichier.
Comment puis-je fermer ce fichier ?
Merci de votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim fso2
fso2 = CreateObject("Scripting.FileSystemObject")
Ftxt2 = fso2.OpenTextFile(chemin2)
        Do While Not Ftxt2.AtEndOfStream
            recup2 = Ftxt2.ReadLine
            Dim Split2 = Split(recup2, "=")
            If Trim(Split2(0)) = "srv" Then srv = Split(Trim(Split2(1)), " ")(0) Else 
            If Trim(Split2(0)) = "usr" Then usr = Split(Trim(Split2(1)), " ")(0) Else 
            If Trim(Split2(0)) = "chemsrv" Then chemsrv = Split(Trim(Split2(1)), " ")(0) Else 
            If Trim(Split2(0)) = "chemkey" Then chemkey = Split(Trim(Split2(1)), " ")(0)
        Loop
'fermer le fichier quand il a fini son opération