Comment tester si le fichié est encore ouvert (utilisation de "Scripting.FileSysRésolu

Question

Bonjours, j'utilise le code suivant :

Private Sub Command1_Click()
Dim ficprod As String
ficprod = App.Path & "	est.txt"


        Set fso = CreateObject("Scripting.FileSystemObject")
        Set fp = fso.OpenTextFile(ficprod, 1)
       
        fp.Close

End Sub

Et je souhaite faire un test sur l'objet fp pour savoir si le fichier est ferm&#233; ou non.
Car si je fait 2fois fp.close, j'ai une &#233;rreure, c'est donc pour &#233;viter ce probl&#232;me.

ShareVB · Accepted Answer

salut,



tu fais une proc&#233;dure qui prend en param un object o et tu mets :
On error resume next

o.close


ShareVB

jim462 · Answer

Personne ne sait ?
Merci quand même !

jim462 · Answer

Ca j'y avait pensé, mais c'est une solution de facilité et qui plus est, qui ne rentre pas vraiment dans les règles de l'art ! (je suis pas sur ques les correcteurs su BTS apprécient cette solution)

mais merci !

En fait, j'utilise un Flag que je passe à True False quand je ferme le fichier.
C'est par la meilleure solution (car je suis persuadé qu'il y a mieux) mais bon ! On va s'en contenter !

Merci ShareVB !

ShareVB · Answer

salut,



quand tu fais fp.close(), fais aussi Set fp = Nothing... dans ce cas :


If fp Is Nothing then 

    'fichier ferm&#233;

else

    'fichier ouvert

end if


ShareVB

jim462 · Answer

Ha oui, cool, c'est une très bonne idée ca !

Merci !

Comment tester si le fichié est encore ouvert (utilisation de "Scripting.FileSys

5 réponses

Discussions similaires