gadget3302
Programmer
Can you load a .txt file into a text box, or something like that? If so how would I go about doing that?
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Open a txt file into a text box? 1
- Thread starter gadget3302
- Start date
- Status
-
1
- #2
gadget3302
Set reference to Microsoft Scripting Runtime Library in your project and run this code making sure you have some C:\MyFile.txt:
Option Explicit
Public myFSO As New Scripting.FileSystemObject
Private Sub Command1_Click()
Dim f As TextStream
Set f = myFSO.OpenTextFile("c:\MyFile.txt", 1)
Text1.Text = f.ReadAll
Set f = Nothing
End Sub
Vladk
Set reference to Microsoft Scripting Runtime Library in your project and run this code making sure you have some C:\MyFile.txt:
Option Explicit
Public myFSO As New Scripting.FileSystemObject
Private Sub Command1_Click()
Dim f As TextStream
Set f = myFSO.OpenTextFile("c:\MyFile.txt", 1)
Text1.Text = f.ReadAll
Set f = Nothing
End Sub
Vladk
Not the most elagant, but will work!
Private Sub Form_Load()
Dim fso, finput, strFileAsString
Set fso = CreateObject("Scripting.FileSystemObject"
Set finput = fs
penTextFile("C:\...\abc.txt"
Do While (finput.AtEndOfStream <> True)
strFileAsString = finput.ReadLine()
List1.AddItem (strFileAsString)
Loop
End Sub
Private Sub Form_Load()
Dim fso, finput, strFileAsString
Set fso = CreateObject("Scripting.FileSystemObject"
Set finput = fs
penTextFile("C:\...\abc.txt"Do While (finput.AtEndOfStream <> True)
strFileAsString = finput.ReadLine()
List1.AddItem (strFileAsString)
Loop
End Sub
- Status
