Åben og gem funktion

Vil du bare åbne og lukke en tekstfil?
Hvis du vil det så:

'***LÆSE FIL***
Dim FileData As String
Open "c:\file.txt" For Binary Access Read As #1
FileData = Space(LOF(1))
Get 1, , FileData
Close #1

'***SKRIVE FIL***
Open "c:\text1.txt" For Binary Access Write As #1
Put 1, , FileData
Close #1

Hej.

Du kan anvende den sædvanlige windows-dialog ved at tilknytte comdlg32.ocx

M.v.h.  Jørn

Brugeren skal selv bestemme hvor det skal gemmes og åbnes

Så laver du en kombination af mit og joern's svar!

f.eks. læse fil:

'**Læg en commondialog på formen, her hedder den ComDlg1

ComDlg1.showopen
if not ComDlg1.filename = "" then

Dim FileData As String
Open ComDlg1.filename For Binary Access Read As #1
FileData = Space(LOF(1))
Get 1, , FileData
Close #1

end if

skrive til en txt fil
Open "c:\test.txt" For Output As #1
Write #1, Text1.Text
Close #1

hente fra en txt fil
dim testtext as string
open "c:\test.txt" for input as #1
input #1, testtext
close #1
msgbox testtext