Public Sub TF_FTPUpload(FileFolder As String, FileName As String, blnASCIIFile As Boolean, ServerFolder As String )
Dim ServerFile As String = File.Combine( ServerFolder, DateTime.Now & "_" & FileName )
FTP1.UploadFile(FileFolder, FileName, blnASCIIFile, ServerFile )
End Sub