Dim No As Integer
No = FreeFile
Open "C:\MeineDatei.txt" For Output As #No
Print #No, Text1.Text
Close #No

Dim No As Integer, strInput As String
No = FreeFile
Open "C:\MeineDatei.txt" For Binary As #No
strInput = Space(LOF(#No))
Get #No,, strInput
Close No
Text1.Text = strInput

Dim strFile As String
strFile = Dir("C:\MeinPfad\*.txt")
While strFile <> ""
  List1.AddItem strFile
  strFile = Dir()
Wend

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.