FTP upload vb script: arquivos não estão sobrescrevendo

Question

Eu estou passando valor como 16, mas não está funcionando para mim, meus arquivos não estão sobrescrevendo e até mesmo recebendo popup também. Existe algum trabalho? Eu verifiquei com 20 valores também, mas não está funcionando.

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