Como abrir uma pasta FTP no Windows via VBScript

Question

Jan 25, 2016, 02:52 PM

Como abrir uma pasta FTP no Windows via VBScript

Meu código até agora:

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

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

'FTP Wait Time in ms
waitTime = 80000

FTPUser = "myuser"
FTPPass = "mypass"
FTPHost = "ftp IP"
FTPDir = "/Creative/"

strFTP = "ftp://" & FTPUser & "+" & FTPPass & "@" & FTPHost & FTPDir
Set objFTP = oShell.NameSpace(strFTP)

Consigo me conectar à minha pasta FTP,agora eu preciso abrir essa pasta no Windows Explorer.