fil -> textbox

Hmmm Tdaugaard har tilsyneladende en stund hvor han sover :-)

måske du kan bruge noget fra dette.
Example
Sub Read_Files()
    Dim fso As New FileSystemObject, txtfile, _
      fil1 As File, ts As TextStream
    Set txtfile = fso.CreateTextFile(\"c:\\testfile.txt\", True)
    MsgBox \"Writing file\"
    \' Write a line.
    Set fil1 = fso.GetFile(\"c:\\testfile.txt\")
    Set ts = fil1.OpenAsTextStream(ForWriting)
    ts.Write \"Hello World\"
    ts.Close
    \' Read the contents of the file.
    Set ts = fil1.OpenAsTextStream(ForReading)
    s = ts.ReadLine  //hele teksten brug ReadAll
    MsgBox s
    ts.Close
End Sub

Jeg kan ikke lige umidel bart gennemskkye denne kode

Sub Read_Files()
    Dim fso As New FileSystemObject, txtfile, _
      fil1 As File, ts As TextStream
       
Set fil1 = fso.GetFile(\"c:\\testfile.txt\")
Set ts = fil1.OpenAsTextStream(ForReading)
   
\"tekstvindue\".Text = ts.ReadAll 
ts.Close

End Sub

nu har jeg ikke installeret vb.så med forbehold,dette kan måske hjælpe dig.
men det burde kunne gøre det har ikke testet det(og er primært c++ mand).

jeg får en fejl på variablen fso

forkert knap --- pis

virker/virker ikke ??

Jeg ville nok gøre sådan, hvor \'Fil\' indeholder den fil, du vil læse (med mindre filen er meget stor):

Dim buffer As String

Private Sub Command1_Click()
Open Fil For Input As 1
Line Input #1, Text1.Text
Do
    Line Input #1, buffer
    Text1.Text = Text1.Text + vbCrLf + buffer
Loop Until EOF(1)
End Sub

Undskyld, sådan her skal den være; og husk at sætte tekstboksen til multiline:

Dim buffer As String

Private Sub Command1_Click()
Open Fil For Input As 1
Line Input #1, buffer
Text1.Text = buffer
Do
    Line Input #1, buffer
    Text1.Text = Text1.Text + vbCrLf + buffer
Loop Until EOF(1)
End Sub

Preclean -> må jeg ikke nok få mine points igen??

http://www.eksperten.dk/spm/60156
selvfølig skal du det.
jeg lukker spm om 14 dage.