Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
May 4, 2002

SaveTextFile - Save or append text to a file

' Saves a text file. If the destination file already exists,
' its content can be replaced, or the new content can be appended
' at the end of the file, according to the last parameter

' Note: the destination directory must exist, otherwise the file is not
'       saved and the function returns False
' Usage: Dim Result As Boolean = SaveTextFile("D:\Test.txt", FileContent)

Function SaveTextFile(ByVal FilePath As String, ByVal FileContent As String, _
    Optional ByVal Append As Boolean = False) As Boolean

    Dim sw As System.IO.StreamWriter
    Try
        sw = New System.IO.StreamWriter(FilePath, Append)
        sw.Write(FileContent)
        Return True
    Catch e As Exception
        Return False
    Finally 
        If Not sw Is Nothing Then sw.Close()
    End Try
End Function
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap