[smcmanus]

I want to put my data from the file into the textbox and not have to create a variable. I cannot get it to work? Thanks.

This CODE does not work:

Private Sub Reading_Click() 
Open "c:\My Documents\sample.txt" For Input As #1 
Input #1, Text1.Text
Close #1 
End Sub 

This CODE Works:

Private Sub Reading_Click() 
Dim variable1 As String 
Open "c:\My Documents\sample.txt" For Input As #1 
Input #1, variable1 
Text1.Text = variable1 
Close #1 
End Sub

Mod edit - Added code tags.

[Reverand Dave]

Try something like this

Dim fso, MyFile,  FileP, txt
FileP = "c:\My Documents\sample.txt"

txt = text1.text

   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyFile = fso.CreateTextFile(FileP, True)
   MyFile.writeLine (txt) 'This is where you enter your string for writing the file. 
								  'Add multiple lines for each line you want in your text file
   MyFile.show 'Or you can use .close

I hope this helps

[Reverand Dave]

Reverand Dave, on 9 Oct, 2008 - 12:40 PM, said:

Dim fso, MyFile,  FileP, txt
FileP = "c:\My Documents\sample.txt"

txt = text1.text

   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyFile = fso.CreateTextFile(FileP, True)
   MyFile.writeLine (txt) 'This is where you enter your string for writing the file. 
		 'Add multiple lines for each line you want in your text file
   MyFile.show 'Or you can use .close

My bad, I should mention that for this line

   Set MyFile = fso.CreateTextFile(FileP, True)

the True is to overwrite an existing file.

I suppose you could also try using using a .open command on there as well if you don't want to overwrite the existing file.

[TRANERAECK]

Here is how I have filled a textbox with any file:

Private Sub OKButton_Click()
    Dim NEWOPEN As String
    Dim Handle As Integer
    
    If answer = 6 Then
        NEWOPEN = File1.Path + "\" + File1.FileName
    End If
    Handle = FreeFile()
    Open NEWOPEN For Input As #Handle
        While Not EOF(Handle)
            If Not EOF(Handle) Then
                MainForm.Text1.Text = MainForm.Text1.Text + Input$(1, #Handle)
            End If
        Wend
    Close #Handle
    MainForm.Text1.Refresh
    Unload Me
End Sub

Hope this helps!!!!!

[BobRodes]

Since smcmcmanus hasn't posted anything here in four years, I doubt it will help him, but it might help one of the 13,000 viewers of this thread.