Назад | Перейти на главную страницу

Скрипт FTP загрузки vb: файлы не перезаписываются

Я передаю значение 16, но оно не работает для меня, мои файлы не перезаписываются и даже не появляются всплывающие окна. Есть ли какие-то решения? Я также проверил значение 20, но не работает.

Const copyType = 16

strFolderPath = "D:\sample"

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

Set objFolder = objShell.NameSpace(strFolderPath)

strFTP = "ftp://" & strFTPUser & ":" & strFTPPass & "@" & strFTPHost & strFTPDir

Set objFTP = objShell.NameSpace(strFTP)

objFTP.CopyHere objFolder.Items,copyType