FTPにアップロード

[vbs][wsh]

strDest = "ftp://<ユーザー名>:<パスワード>@<ftpドメイン>/<アップロード先フォルダ>"

With CreateObject("Shell.Application")
	Set objDest = .NameSpace(strDest)
	objDest.CopyHere("C:\Users\ユーザー\Desktop\アップロードしたい.txt")
	WScript.Sleep(5000)
End With

ネタ元

• http://wiki.mesolabo.com/?%E3%83%A1%E3%82%BD%E7%9F%A5%E6%81%B5%2FWSH%2FFTP%E3%81%A7%E3%82%A2%E3%83%83%E3%83%97%E3%83%AD%E3%83%BC%E3%83%89

• http://bbs5.aimix-z.com/mtpt.cgi?room=smms&mode=view&no=7

CopyHereは非同期な命令なのでWScript.Sleepを入れないとコピーがうまくいかないみたい。

参考

• Write to file using CopyHere without using WScript.Sleep