hallo,
wie kann ich über einen button eine textdatei im verzeichnis C:\TEMP öffnen?
ich hab keine ahnung wie der code dazu lautet
ich will nur über einen button auf die datei zugreifen
ein auslesen der datei und die nachfolgende ausgabe in einer listbox würde mir auch schon genügen!
danke im voraus
mfg
Peter Kordik
Hallo Peter,
eine Möglichkeit, die auch gleich künftige Probleme löst, bevor sie auftreten:
Option Explicit
Private Sub Command1\_Click()
Dim ff As Integer
Dim fl As Long
Dim txt As String
Dim na As String
na = "C:\Text.txt"
fl = FileLen(na)
ff = FreeFile
txt = Space(fl)
Open na For Binary As ff
Get #1, , txt
Close #1
Text1.Text = txt
End Sub
Es geht auch geringfügig anders, ich bevorzuge diese Variante. 
Gruß, Rainer
Korrektur,
wenn ich schon mit FreeFile anfange, muß ich das auch richtig machen, sorry …
Option Explicit
Private Sub Command1\_Click()
Dim ff As Integer
Dim fl As Long
Dim txt As String
Dim na As String
na = "C:\Text.txt"
fl = FileLen(na)
ff = FreeFile
txt = Space(fl)
Open na For Binary As #ff
Get #ff, , txt
Close #ff
Text1.Text = txt
End Sub
Gruß, Rainer