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!
opening txt files from a module 1
- Thread starter R9772
- Start date
-
1
- #2
FirstAndGoal4
Programmer
Look in Help for Open Statement, Input Statement, Close Statement, etc...
Brief example:
Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ' Loop 5 times.
FileNumber = FreeFile ' Get unused file number.
Open "TEST" & MyIndex For Output As #FileNumber 'Create filename.
Write #FileNumber, "This is a sample." ' Output text.
Close #FileNumber ' Close file.
Next MyIndex
Brief example:
Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ' Loop 5 times.
FileNumber = FreeFile ' Get unused file number.
Open "TEST" & MyIndex For Output As #FileNumber 'Create filename.
Write #FileNumber, "This is a sample." ' Output text.
Close #FileNumber ' Close file.
Next MyIndex
- Status
Similar threads
- Locked
- Question
- Locked
- Question