✔ Speichern und Laden einer TXT Datei!

[Eichhornleib]

Folgendes:

1. Wie lade ich beim Start eine .TXT Datei in einem Textfeld automatisch

2. Wie speicher ich die datei dann durch Klick auf "Speichern"

 

[wincnc]

Versuch´s mal hiermit:

Private Sub Form_Load()
Dim Text As String

Nr = FreeFile

Open "D:\Test.txt" For Binary As #Nr
Text = Space(LOF(Nr))
Get #Nr, , Text
Close #Nr

Text1.Text = Text
End Sub

Private Sub Speichern_Click()

If Dir("d:\test.txt") <> "" Then Kill "D:\Test.txt"

Nr = FreeFile

Open "D:\Test.txt" For Binary As #Nr
Put #Nr, , Text1.Text
Close #Nr

End Sub

 

[Eichhornleib]

Danke hat funktioniert