'FTP Upload
'Upload a file/folder to an FTP server
 
Set oShell = CreateObject("Shell.Application" )
Set objFSO = CreateObject("Scripting.FileSystemObject" )
 
'Path to file or folder to upload
'path = "test.txt"
path = "To_my_local_folder"
 
FTPUpload(path)
 
Sub FTPUpload(path)
 
On Error Resume Next
 
'Copy Options: 16 = Yes to All
Const copyType = 16
 
'FTP Wait Time in ms
waitTime = 80000
 
FTPUser = "test_ftp"
FTPPass = "XXXXXXX"
FTPHost = "XXXXXXX"
FTPDir = "/ftp_test/"
 
strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost & FTPDir
Set objFTP = oShell.NameSpace(strFTP)
 
'Make new folder on FTP site
'objFTP.NewFolder "FTP Backup"
 
 
'Upload single file        
If objFSO.FileExists(path) Then
 
Set objFile = objFSO.getFile(path)
strParent = objFile.ParentFolder
Set objFolder = oShell.NameSpace(strParent)
 
Set objItem = objFolder.ParseName(objFile.Name)
 
Wscript.Echo "Uploading file " & objItem.Name & " to " & strFTP
objFTP.CopyHere objItem, copyType
 
End If
 
'Upload all files in folder
If objFSO.FolderExists(path) Then
 
'Code below can be used to upload entire folder
Set objFolder = oShell.NameSpace(path)
 
Wscript.Echo "Uploading folder " & path & " to " & strFTP
objFTP.CopyHere objFolder.Items, copyType
 
End If
 
If Err.Number <> 0 Then
Wscript.Echo "Error: " & Err.Description
 
End If
 
'Wait for upload
WScript.Sleep waitTime
 
End Sub