vbs自动上传ftp

VBS上传文件2008-05-16 13:34ON ERROR RESUME NEXT
Set FSO=CreateObject("Scripting.FileSystemObject")
'============================================================================
'以下为配置区
'============================================================================
strComputer="ftp" 'FTP主机名或主机IP(如:"192.168.1.1")
strUserName="UserName" 'FTP用户名(如:"test")
strPassword="PASSWORD" 'FTP用户密码(如:"123456")
strFtpDir="Record" 'FTP目录(如:"Dir/subDir")
strUpFileList="D:\a.txt,D:\b.txt" '待上传文件的路径列表
strTip="上传完成!" '上传完成后的提示
IsTip=True '是否显示提示(值为True或False)
nTime=0 '提示显示时间（0为一直显示直到用户确认）
'============================================================================
'以下无需修改
'============================================================================
test=UpLoad(strComputer,strFtpDir,strUserName,strPassword,strUpFileList,IsTip,strTip,nTime)
'============================================================================
Function UpLoad(strComputer,strFtpDir,strUserName,strPassword,strUpFileList,IsTip,strTip,nTime)
ON ERROR RESUME NEXT
Set FSO=CreateObject("Scripting.FileSystemObject")
Set WshShell=CreateObject("Wscript.Shell")
strFile=FSO.GetDriveName(FSO.GetSpecialFolder(0))&"\upload"
Do While FSO.FileExists(strFile&".tmp")
i=i+1
strFile=strFile&Cstr(i)
Loop
strFile=strFile&".tmp"
set f=FSO.OpenTextFile(strFile,2,True)
f.WriteLine "open "&strComputer