我传递的值是 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
答案1
这些重要问题并不适合业余程序员。论坛可以帮助您了解用户表单等是什么。