How do i make a txt files?

[BrandonTurner]

How could my program make like "C:File.txt"?

[peet]

Private Sub Command1_Click()
    Open "C:\rattata.txt" For Output As #1
    Print #1, "test"    'exclude quotes
    Write #1, "test"    'include quotes
    Close #1
End Sub

[chrisjk]

Open "C:\File.txt" For Output as #1
Print#1, ""
Close #1

should do it

[filburt1]

To write to a text file (this creates it if it does not exist already):

Dim FileHandle As Integer
Open "c:\file.txt" For Output As #FileHandle
Print #FileHandle, "Testing"
Close #FileHandle

[filburt1]

Oh, and if you want to read it back in :

Dim FileHandle As Integer
Dim Contents As String, Cache As String
Open "c:\file.txt" For Input As #FileHandle
Line Input #1, Cache
Contents = Contents & Cache & vbCrLf
Close #FileHandle
Contents = Right$(Contents, Len(Contents) - 1) ' get rid of trailing newline

[chrisjk]

I'm sure theres a conspiracy going on here

[filburt1]

I gave the most code, I want a cookie.

[peet]

yes kind a scary

[Helger]

Hey you guys forgot about the filesystemobject!

Option Explicit
Dim fso As New FileSystemObject
Private Sub Form_Load()
Dim tsr As TextStream
Dim myFSOText As String
 
myFSOText = "d:\anypath\text.txt"
 
If fso.FileExists(myFSOText) = False Then
    Set tsr = fso.CreateTextFile(myFSOText)
Else
    Set tsr = fso.OpenTextFile(myFSOText, ForAppending)
End If
tsr.Write "blah"
 
tsr.Close
Set tsr = Nothing
End Sub

regards,

Helger

[nishantp]

Nooooooooooooo The FSO people found the thread!!! Were all dooooooomed!!

[chrisjk]

Originally posted by Helger
Hey you guys forgot about the filesystemobject!


regards,

Helger

All that code, and 3 lines of intrinsic VB code will do!!!! And it's FSO!!!

[filburt1]

*diplomatic mode* I guess its always good to have alternatives *end diplomatic mode* The FSO sucks.

[Helger]

I knew you would love this! Very welcome!

[beachbum]

Originally posted by filburt1
To write to a text file (this creates it if it does not exist already):

Dim FileHandle As Integer
Open "c:\file.txt" For Output As #FileHandle
Print #FileHandle, "Testing"
Close #FileHandle

Besides the serious one of getting the freefile didnt u also forget to declare the FileHandle as a VARIANT!!

Dim FileHandle As Variant 'Only for Filburt's sake. S/be integer or long
    [b]FileHandle = FreeFile[/b]
    Open "c:\file.txt" For Output As #FileHandle
    Print #FileHandle, "Testing"
    Close #FileHandle

Regards
Stuart

[filburt1]

So it'll typecast it then into something far more superior than Variant.

[Tygur]

Here's a quick tip nobody mentioned before:

If you're using Print to put the text into the file like this:
Print #1, MyString

..and you're wondering why there are two extra characters at the end of the file, try adding a semicolon to the end of the line:
Print #1, MyString;

The semicolon prevents VB from adding a new line to the end of the file.