Прикрутить загрузку с FTP вместо директории

set in\out folders
OutFolder = "ftp://192.168.88.245/out"
'OutFolder = "C:/out" 
InFolder = "C:\Users\Admin\Desktop\in" 
 
'set date

'set in\out folders
OutFolder = "ftp://10.1.17.89/" 
InFolder = "C:\Users\Admin\Desktop\in" 
 
'set date
 
 
 
 
 
MyDate = DateAdd("d", -5, Date)
'but you can use: 'MyDate = Cdate ("dd.mm.year")' set 01.01.1970 and all files will be copied
 
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShellApp = CreateObject("Shell.Application")
LogPath = objFSO.GetParentFolderName(WScript.ScriptFullName)
 
Set LogStream = objFSO.OpenTextFile(LogPath & "\runlog.log", 8, True)
LogStream.WriteLine "Start copy:" & Now()
CopyFiles OutFolder 
LogStream.WriteLine "Stop copy: " & Now()
LogStream.WriteLine "Copied all files created after: " & DateAdd("d", -5, Date)
LogStream.Close
 
'recursive parsion our files in catalog
Sub CopyFiles(FolderPath)
    On Error Resume Next
    Set objFolderItems = objShellApp.NameSpace(FolderPath).Items()
    For Each objFolderItem In objFolderItems
        If objFolderItem.IsFolder  Then
            CopyFiles objFolderItem.Path
        Else
            Set objFile = objFSO.GetFile(objFolderItem.Path)
                     If objFile.DateLastModified > MyDate Then 'wt?
                CopyFile objFolderItem.Path
            End If
        End If
    Next
End Sub
'copy file
Sub CopyFile(FilePath)
    On Error Resume Next
    SubPath = Mid(FilePath, Len(OutFolder) + 1)
    TargetPath = InFolder & SubPath
    FolderPath = objFSO.GetParentFolderName(TargetPath)
    If Not objFSO.FolderExists(FolderPath) Then
        CreateFolder FolderPath
    End If
  
    objFSO.CopyFile FilePath, TargetPath, True
    If Err.Number <> 0 Then
        LogStream.WriteLine
        LogStream.WriteLine FilePath
        LogStream.WriteLine Err.Description
        LogStream.WriteLine
        Err.Clear
    Else
        LogStream.WriteLine TargetPath
    End If
End Sub
 
' create catalog
Sub CreateFolder (FolderPath)
    On Error Resume Next
    ParentFolder = objFSO.GetParentFolderName(FolderPath)
    If Not objFSO.FolderExists(ParentFolder) Then
        CreateFolder ParentFolder
    End If
    objFSO.CreateFolder FolderPath
End Sub