Fermer fichier avec utilisation fso

Version imprimable

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:

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

13/03/2015, 10h26
jopopmk

Salut,

je ne vois qu'une raison pour que tu ne puisses pas ouvrir deux fois le même fichier : tu ne le fermes pas après sa première ouverture.
13/03/2015, 10h46
DeWaRs

Hello,

Rajoute

Code:

Ftxt2.close

a la fin de ta boucle.

Cordialement

DeWaRs

en .net on code en .net
fso c'est pour vbscript à ma connaissance
et puis enchainer les else c'est pas super
Code:

1 2 3 4 5 6 7 8 9 10 for each ligne in system.io.file.ReadAllLines(" chemin du fichier ") 'ouvre le fichier, lit tout, découpe en ligne et le ferme Dim sp = Split(ligne, "=") Dim spTrimmé = (From s In sp Select s.Trim) ' on trim tout tout de suite select case spTrimmé(0) case "srv" srv = ... case "usr" ... end select next
après si c'est tous des strings, et que c'est tous des variables dans ta classe, le select case (ou tous les ifs) peuvent être remplacés par une seule ligne de code qui va chercher la variable du même nom que ce qu'il y avant le =

13/03/2015, 11h22
boostaut

DeWaRs, je rajoute Ftxt2.Close mais ça ne le ferme pas. Merci comme même
Pol63, j'avoue mon code n'est pas beau à voir, j'ai tester ta méthode, elle est super et optimise énormement le code. Fso fonctionne aussi avec .net. Merci pour ta réponse
Mais j'ai toujours le problème de la fermeture du fichier..

C'est étrange boostaut, car j'ai un programme qui lit un fichier texte tout bête mais qui fonctionne bien, je sais juste que mes données sont lignes après lignes, car je les ai sauvegardées comme ça, ce qui donne pour le load :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim FileLoad As IO.Stream = Nothing
        Dim file As IO.FileInfo = Nothing
        Dim openFileDialogOuvrir As New OpenFileDialog()
 
        openFileDialogOuvrir.InitialDirectory = Fileway
        openFileDialogOuvrir.Filter = "XXX files (*.xxx)|*.xxx|All files (*.*)|*.*"
        openFileDialogOuvrir.FilterIndex = 1
        openFileDialogOuvrir.RestoreDirectory = True
 
        If openFileDialogOuvrir.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Try
                FileLoad = openFileDialogOuvrir.OpenFile()
                If (FileLoad IsNot Nothing) Then
                    Try
                        Dim Sr As IO.StreamReader = New IO.StreamReader(FileLoad)
                        Me.TB_NumProjet.Text = Sr.ReadLine
                     end...

Là je t'ai mit des trucs qui te serviront peut être pas, mais c'était au cas où.. Maintenant tu fermes le tout :

Code:

1
2
Sr.Close()
If (FileLoad IsNot Nothing) Then FileLoad.Close()

16/03/2015, 10h11
Pol63

Citation:

Envoyé par boostaut

Mais j'ai toujours le problème de la fermeture du fichier..

system.io.file.ReadAllLines ferme le fichier
donc ton problème est soit ailleurs dans ton code, soit dans un autre programme qui ouvre le fichier