how to create and write to a text file

[sourabhjha]

Can someone give me a sample code for creating and writing to a text file using vb.
Thanks in advance
-Sourabh

 

[JohnYingling]

Writes the entire file from a single string, CrLF s already included
Public Sub WriteProto(strFilename As String, _
strOut As String)
Dim lngFile As Long
Dim strResponse As String
Dim strWhile As String
lngFile = FreeFile()
strWhile = "Opening"
On Error Resume Next
Open strFilename For Output As lngFile
strResponse = Err.Description
On Error GoTo 0
If Len(strResponse) = 0 Then
strWhile = "Writing"
On Error Resume Next
Print #lngFile, strOut; ' No Crlf added at end
On Error GoTo 0
End If
On Error Resume Next
Close lngFile
On Error GoTo 0
If Len(strResponse) > 0 Then
Err.Raise vbObjectError + 513, , strResponse
End If
End Sub

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[CCLINT]

So much easier using FSO:

Add a reference under Projects to the "Microsoft Scripting Runtime"

Dim fso As New Scripting.FileSystemObject
Dim f As Scripting.TextStream

fso.CreateTextFile sPATHandNAME, overwrite:=True
Set f = fspenTextFile(sPATHandNAME, IOMode:=ForAppending, Create:=False)

f.WriteLine "My Line 1"
f.WriteLine "My Line 2"

f.Close

Set f = Nothing
Set fso = Nothing

 

[DavidTN]

Thanks for the FSO code!

I wanted to eliminate those pesky quotation marks. That did the trick

 

[sunaj]

Or

-----------------
Dim f as byte

f=freefile
Open sPATHandNAME for OUTPUT as #f
Print #f, "My Line 1"
Print #f, "My Line 2"
Close #f
-----------------
Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'