Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Sub SendFTPOrder()
InetFTP.RemoteHost = ""
InetFTP.Username = ""
InetFTP.Password = ""
InetFTP.Url = ""
'Write the three required FTP Login variables to the registry
' SaveSetting "FTPuploader", "FTP", "hostname", sTempVendor.Url
' SaveSetting "FTPuploader", "FTP", "username", sTempVendor.Username
' SaveSetting "FTPuploader", "FTP", "password", sTempVendor.Password
InetFTP.RemoteHost = Url
InetFTP.Username = Username
InetFTP.Password = Password
Screen.MousePointer = vbHourglass
frmOrderAdmin.InetFTP.Execute , "PUT """ & FilePath & """ " & FileName
' This allows me to wait until the file is done transfering
Do Until frmOrderAdmin.InetFTP.StillExecuting = 0
DoEvents
Loop
InetFTP.Execute , "Quit"
Screen.MousePointer = Default
MsgBox "Message sent via FTP successfully."
bComplete = True
Kill (sTempVendor.FilePath)
Exit Sub
ErrorHandler:
If (Err.Number <> 0) Then
MsgBox "Error: " & Err.Description, vbExclamation, "Error Saving File."
End If
Screen.MousePointer = Default
End Function