creer fichierRésolu

Question

bonsoir,
voila en gros je fais une option save et charge d'un txt du dd dans un listbox tt sa va a merveile mais quand je save il me met que le fichier est introuvable :s
j'ai ca comme code :

Private Sub SaveList_Click()

If Dir(App.Path & "/Liste.llp") <> "" Then
        Dim T As Long
        Open App.Path & "/Liste.llp" For Output As #1
        For T = 0 To ListLogPass.ListCount - 1
        Print #1, ListLogPass.List(T)
        Next T
        Close #1
        MsgBox "Sauvegarde réussie", vbInformation, "Information"
End If

End Sub

et donc je save si j'ai pas creer au prealable le fichier Liste.llp je l'ai dans l'os il veut pas saver quelqu'un a une solution pour quand je save et qui a pas le fichier il puisse le cree lui meme et pas avoir besoin d'un fichier de base ?

Merci d'avance
Diablaman

ps: sorry si j'ai mis dans la mauvaise section mon post mais je ne savais pas trop ou le mettre :s
      si vous pouviez en meme temp me dire pour vous ou il aurais du etre pour qu'a l'avenir je sache
      ou le mettre :p

cs_Willi · Accepted Answer

Salut Diablaman 
En remplacant / par \ dans les chemins que tu passes à Dir et à Open ca devrait etre un petit peu mieux non ?  



If Dir(App.Path & "\Liste.llp") <> "" Then
        Dim T As Long
        Open App.Path & "\
Liste.llp" For Output As #1
        For T = 0 To ListLogPass.ListCount - 1
        Print #1, ListLogPass.List(T)
        Next T
        Close #1
        MsgBox "Sauvegarde réussie", vbInformation, "Information"
End If

End Sub

Gobillot · Answer

Salut,

pour Output il n'y a pas besoin de fichier de base,

s'il existe il sera écrasé, s'il existe pas il sera  créé

donc le test d'existence pour la sortie n'a pas lieu d'être,

sinon tu n'écriras jamais de fichier la première fois.

Daniel

diablamanshadow · Answer

oui juste mais j'avais mis des / et non des \ p-e pour ca qu'il avais besoin d'un fichier de base :p

PCPT · Answer

pense à valider...

diablamanshadow · Answer

mici j'avais oublier vila ses valider :p

Creer fichier

5 réponses

Votre réponse

Discussions similaires