Pastetool - WriteTextFile

URL: , Paste another

Public Sub WriteTextFile(FileName As String, Text As String)
    On Error GoTo ErrHandler
    Dim f As Integer
    f = FreeFile
    Open FileName For Output As f
        Print #f, Text
    Close f
ErrHandler:
End Sub

Download code

This visual basic code was pasted on September 8, 2009

Protected with advance Anti-SPAM techniques :)
Coded and designed by Fedmich