problème erreur 70 permission refusée

Question

Bonjour,
j'ai un problème avec l'erreur 70 qui me refuse la permission.
Voici mon code :

Private Sub Command1_Click()
/*Si mon fichier texte n'existe pas je le créé sinon je continu
      If Dir("C:\Documents and Settings\...\...	est.txt", vbNormal) = "" Then
            Set FSys = CreateObject("Scripting.FileSystemObject")
            Set MonFic = FSys.CreateTextFile("C:\Documents and Settings\...\...	est.txt")
      End If
    
    
        Dim int As Integer
        Dim Chaine As String
        int  = FreeFile
        Open "C:\Documents and Settings\...\...	est.txt" For Append As #1
        Print #1, "FICHE OUTILS " 
        Print #1, ""
               Do While Not EOF(1)
                Input #1, Chaine
                frmRechercher.List1.AddItem Chaine
                Loop
          Close #1
    End Sub


A la ligne :
 Open "C:\Documents and Settings\...\...	est.txt" For Append As #1
il me dit que la permission est refusé.
Cependant si mon fichier test.text est déjà créé il ne me met aucune erreur.
Merci

Renfield · Answer

c'est justement parce que tu as pris la main sur ce fichier que tu ne peux pas l'ouvrir de nouveau.

je ne comprend pas ce que tu as voulu faire, ni ce que vient faire FSO la dedans...

le Mode Append te créé le fichier, s'il n'existe pas.

par contre, je ne comprend pas ce que tu fais avec ton fichier....
tu y a joutes une ligne, systématiquement....
et tu lis ensuite le contenu du fichier (en partant de la fin, tu n'iras pas loin)

neg03 · Answer

En faite mon problème ne provient pas seulement d'ici mais j'ai réussi à le remodifier et il est bien vrai que FSO ne me sert strictement à rien après pour mon application.
En faite pour mieux comprendre le rôle de mon fichier est que à partir de ma base de données que je gère à partir d'une interface, dans une fonction de recherche je choisit différents types d'objet et ceux que je souhaite je les insères dans mon fichier. Et pour permettre à l'utilisateur de voir le contenu du fichier, dans une listbox j'affiche sur chaque lignes le contenu de mon fichier.

Problème erreur 70 permission refusée

2 réponses

Votre réponse

Discussions similaires