Erreur 70

Question

Salut &#224; tous;

petit probl&#232;me avec una application que je d&#233;veloppe :

Je dois updater un fichier TXT :  si je transf&#232;re les donn&#233;es d'un fichier existant vers un fichier de transfert, que je rajoute une ligne &#224; la fin ; et puis que je retranscris ces donn&#233;es dans le fichier original, pas de soucis, les fonctions input/output et close fonctionnent sans soucis.

Par contre, si en premi&#232;re &#233;tape, je cr&#233;e d'abord ce fichier txt et qu'ensuite je fais la proc&#233;dure ci avant, VB me g&#233;n&#233;re une erreur de "type 70, permission non attribu&#233;e"

QQ'un a d&#233;j&#224; eu ce genre de pb ?

Merci d'avance

Cyclone

spa666 · Answer

tu as verifie les droits d acces sur le repertoire ou tu veux ecrire ?

cs_Cyclone · Answer

Comment v&#233;rifier ces droits d'acc&#233;s ?

merci .

Cyclone

cs_Cyclone · Answer

Voil&#224; la partie du code qui pose probl&#232;me :

'cr&#233;ation du fichier txt
Set fso = CreateObject("Scripting.FileSystemObject")


'emplacement du nouveau document txt
Set fichier = fso.CreateTextFile(App.Path & "" & NOM & ".txt", True)


    '&#233;criture du nom de la s&#233;quence
    'fichier.WriteLine ("name=" & Me.txt_name.Text)


    '&#233;criture de la description de la s&#233;quence
    'fichier.WriteLine ("description=" & Me.txt_description.Text)


'transfert des donn&#233;es du fichier temporaire vers le fichier d&#233;finitif   
   Open App.Path & "	emporaire.txt" For Input As #1
   Open App.Path & "" & NOM & ".txt" For Output As #2


    'V&#233;rifie si la fin du fichier est atteinte
    Do While Not EOF(1)


    'lit les donn&#233;es ligne par ligne
    Line Input #1, ligne


    'imprime les donn&#233;es dans le second fichier - fichier de transfert
    Print #2, ligne
    
    Loop
        
    'fermeture des fichiers
    Close #1
    Close #2

Cyclone

cs_CanisLupus · Answer

Salut,
Met en commentaire tes lignes 
Set fso = ....
et 
Set fichier = fso......

Je pense que &#231;a devrait le faire.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Erreur 70

4 réponses

Discussions similaires