Savetextfile-save or append text to a file

I can see a method for storing or adding text to a file on the Internet. It feels good to share with you! Pai_^



Original article @ devx.com



'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