Я передаю значение 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