FTP上传vb脚本：文件不覆盖

我传递值为16，但它不适合我，我的文件不覆盖，甚至popup也有任何工作？ 我检查了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