équivalent VB6 d'enregistrer txtBox Résolu/Fermé

Question

Bonjour, 

Salut les gens

Je programme actuellement une application en VB6 et je suis comfronté à un petit problème. Je connais un peu le VB.NET et je suis en mesure de créer le code que je veux en VB.NET mais en VB6, je ne trouve pas l'équivalent.

Quelqu'un aurait-il l'équivalent de

Savefiledialog.Filter = "Fichiers TXT (*.txt) .txt"
If Savefiledialog.Showdialog = Windows.Forms.DialogResult.ok Then
    Dim sw As New System.IO.StreamWriter(SaveFileDialog.FileName)
    sw.WriterLine (maTextBox.Text)
    sw.flush()
End If

en VB6 ?

Merci d'avances pour vos réponses et bonne journée.
Cordial.


Configuration: Windows XP / Firefox 3.5.11

Kofinou · Answer

En gros j'ai une Textbox avec du texte dedans et je veux enregistrer sous ce texte dans un fichier texte qui se créer en même temps. Voili voilou ! :)

Polux31 · Answer

Bonjour,

Pour écrire dans un fichier en VB6:

Dim fp As Integer

   fp = Freefile

   Open "C\Temp\monFichier.txt" For Append As #fp
   Print #fp, maTextBox.Text
   Close #fp

Append permet d'ajouter dans un fichier et créer le fichier s'il n'existe pas
Output permet d'écrire dans un fichier, écrase le fichier s'il existe.

;o)

Kofinou · Answer

Merci beaucoup !
:)
Tout fonctionne très bien :)
Thanks

Kofinou · Answer

Euh au passage j'ai une question:
J'essaye de faire entrer dans ma Textbox L'heure etc et quand j'écris dans le texte & VBA.Datetime.Hour & il me donne l'erreur à l'exécution "Cet argument n'est pas facultatif" en surlignant .Hour . Quelqu'un pourrait-il m'éclairer quand à la raison de cet erreur.
Merci 
Cordial.

équivalent VB6 d'enregistrer txtBox

4 réponses

Discussions similaires