Jesper Stocholm <tdc@H50EMstocholm.dk> (slet H50EM) skrev:
>Jeg skal læse indholdet af en fil
>ind i en textbox - og det volder mig
>lidt problemer.
>
>Private Sub Command1_Click()
> cmdDlg.FileName = ""
> cmdDlg.Action = 1
> txtFileName.Text = cmdDlg.FileName
>
> Open cmdDlg.FileName For Input As #1
> ' ... og her kommer jeg i tvivl
>
>End Sub
det var søreme ikke så svært igen:
Open cmdDlg.FileName For Input As #1
While Not EOF(1)
Input #1, sLine
sFileData = sFileData & sLine & vbCrLf
Wend
txtEditFile.Text = sFileData
Close #1
--
Jesper Stocholm
http://stocholm.dk