使用VBScript将文件夹内容上传到FTP会提供覆盖现有文件的对话框

Question

这是我第一次使用VBScript创建一个我想在一个名为Qlikview的程序中运行的任务。

我想要做的是将一个本地文件夹的所有内容上传到FTP文件夹，但是当一个文件已经在该FTP文件夹上时，它只需要＆＃34;覆盖全部＆＃34;所以＆＃34;是的所有＆＃34;自动

这是我的代码：

Function FTPUpload(FTPHost, FTPUser, FTPPass, FTPPath)

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

On Error Resume Next

'Copy Options: 16 = Yes to All
Const copyType = 16

strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost

Set objFTP = oShell.NameSpace(strFTP)

'Upload all files in folder
If objFSO.FolderExists(FTPPath) Then
    'Code below can be used to upload entire folder
    Set objFolder = oShell.NameSpace(FTPPath)
    Wscript.Echo "Uploading folder " & FTPPath & " to " & strFTP
    objFTP.CopyHere objFolder.Items, copyType

End If

'If Err.Number <> 0 Then
'   Wscript.Echo "Error: " & Err.Description
'End If

On Error Goto 0

End function

我使用objFTP.CopyHere objFolder.Items, copyType复制内容，copyType = 16我在互联网Here上找到了这个内容，其中16代表＆＃34;是全部＆＃34;出现对话框时

问题是当我运行此代码时，它会上传到FTP，但是当文件存在时，我会继续获取覆盖对话框。可能是什么问题？