Discussion :

[Crachover]

Bonjour,

J'aimerais pouvoir cliquer sur un bouton et :

• Créer un fichier texte si il n'existe pas à un emplacement définit
• Pouvoir y ajouter une valeur et seulement un, donc le fichier devrait être mit à zéro avant l'ajout
• Pouvoir

Pourriez-vous aussi me donner le code pour ouvrir une boite de dialogue utilisé pour aller chercher un fichier ne se trouvant pas à l'endroit par défaut ?


J'ai trouvé ce code qui fonctionne à moitié, il créé le fichier, le remet à zéro si il existe et ajoute la valeur MAIS le fichier n'a pas d'extension *.txt, si je rajoute l'extension le code ne fonctionne plus...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Dir$("C:\Users\Propriétaire\Desktop\Générer\Test", vbNormal) <> "" Then My.Computer.FileSystem.DeleteFile("C:\Users\Propriétaire\Desktop\Générer\Test")
Dim file = My.Computer.FileSystem.OpenTextFileWriter("C:\Users\Propriétaire\Desktop\Générer\Test", True)
        file.WriteLine(TextBox3.Text)
        file.Close()

Merci d'avance pour votre aide :-)

[Phil Rob]

Bonsoir,

Si ton fichier n'a pas 'extension, c'es parce que tu ne lui en as pas donné : Dim file = My.Computer.FileSystem.OpenTextFileWriter("C:\Users\Propriétaire\Desktop\Générer\Test", True), change \Test en \Test.TXT et tu auras l'extension TXT.

...

[Crachover]

Bonjour,

Merci pour votre réponse, à ne rien comprendre... j'avais pourtant essayé cela et rien ne se passait et voilà que maintenant ça fonctionne...

Bonne journée