[Iska]

LepeT, примерная болванка:

Код:

Option Explicit

Const SHCONTF_NONFOLDERS    = &H00040
Const SHCONTF_INCLUDEHIDDEN = &H00080


Dim arrFiles
Dim strFTPFolder

Dim objFSO
Dim objShell

Dim strFile

Dim objDestFolder

Dim lngCurrSize

Dim objFolderItems
Dim objFolderItem


arrFiles = Array( _
	"D:\Install\Mozilla Firefox\Mozilla Firefox 28.0\Firefox Setup 28.0.exe", _
	"D:\Install\Mozilla Firefox\Mozilla Firefox 28.0\FirefoxPortable_28.0_Russian.paf.exe", _
	"D:\Install\Mozilla Firefox\Mozilla Firefox 33.0.2\Firefox Setup 33.0.2.exe", _
	"D:\Install\Mozilla Firefox\Mozilla Firefox 33.0.2\FirefoxPortable_33.0.2_Russian.paf.exe" _
)

strFTPFolder = "ftp://User:Password@my.ftpserver.com/DestFolder"


Set objFSO   = WScript.CreateObject("Scripting.FileSystemObject")
Set objShell = WScript.CreateObject("Shell.Application")

Set objDestFolder = objShell.NameSpace(strFTPFolder)

If Not objDestFolder Is Nothing Then
	For Each strFile In arrFiles
		If objFSO.FileExists(strFile) Then
			WScript.Echo strFile, "--->", objDestFolder.self.Path
			
			lngCurrSize = -1
			
			objDestFolder.CopyHere strFile
			
			Do Until lngCurrSize = objFSO.GetFile(strFile).Size
				Set objFolderItems = objDestFolder.Items
				
				objFolderItems.Filter SHCONTF_NONFOLDERS + SHCONTF_INCLUDEHIDDEN, "*.*"
				
				For Each objFolderItem In objFolderItems
					If objFolderItem.Name = objFSO.GetFileName(strFile) Then
						lngCurrSize = objFolderItem.Size
					End If
				Next
				
				WScript.Sleep 100
				
				Set objFolderItems = Nothing
			Loop
		Else
			WScript.Echo "Can't find source file [" & strFile & "]."
		End If
	Next
Else
	WScript.Echo "Can't connect into FTP folder [" & strFTPFolder & "]."
	WScript.Quit 2
End If

Set objShell = Nothing
Set objFSO   = Nothing

WScript.Quit 0

Имейте в виду: в случае возникновения ошибки при копировании код останется работать вечно.