Private rp As RuntimePermissions
Private FilePath As String
FilePath = rp.GetSafeDirDefaultExternal("")
SMB1.SetCredentials(Username,Password,"")
SMB1.Initialize("SMB1")
SMB1.Downloadfile("smb://Engineering-pc/Test", DateTime.Date(DateTime.Now) & ".txt",FilePath,DateTime.Date(DateTime.Now) & ".txt")
Dim Writer As TextWriter
Writer.Initialize(File.OpenOutput(FilePath, DateTime.Date(DateTime.Now) & ".txt", True))
Writer.Writeline(",Here is some appended text.")' or writeline for CR
Writer.Flush
Writer.Close
SMB1.UploadFile(FilePath, DateTime.Date(DateTime.Now) & ".txt","smb://Engineering-pc/Test", DateTime.Date(DateTime.Now) & ".txt")