VBS上传文件(转载)
<div class="iteye-blog-content-contain" style="font-size: 14px"></div>
ON 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
f.WriteLine strUserName
f.WriteLine strPassword
strFtpDirs=Split(strFtpDir,"/")
For Each strFtpDir In strFtpDirs
f.WriteLine "mkdir "&strFtpDir
f.WriteLine "cd "&strFtpDir
Next
strUpFiles=Split(strUpFileList,",")
For Each strUpFile In strUpFiles
f.WriteLine "put "&strUpFile
Next
f.WriteLine "bye"
f.Close
WshShell.Run "ftp -s:"&strFile,vbHide,True
FSO.DeleteFile strFile
If IsTip Then WshShell.Popup strTip,nTime,"由【网络e蜜蜂】制作",vbInformation
UpLoad=True
End Function
'============================================================================
通过FTP上传文件的VBS脚本
★§欢乐共享§★
<功能>
将若干文件上传到FTP服务器上。
<注意>
“strPassword=”这项可以会泄露你的登陆密码,建议将VBS编译后使用
VBS编译器下载地址:http://cmdos.net/soft/sort017/down-637.html
<使用说明>
strComputer=设为你的FTP服务器名或IP
strUserName=登陆FTP的用户名
strPassword=登陆FTP对应的密码
strFtpDir=登陆FTP根目录后的相对目录(为空则为FTP根目录)
strUpFileList=待上传文件的路径列表
strTip=上传完成后的提示
IsTip= 是否显示提示
nTime= 提示显示时间(0为一直显示直到用户确认)
<建议>
建议用EditPlus打开,语法鲜明,你可以很好的看懂!
VBS上传文件(转载)相关推荐
- 浏览器兼容模式下,上传文件问题
在浏览器的兼容模式下,页面没有上传图片的时候,file != null && file.Count > 0 && file[""] != nu ...
- http 协议上传文件multipart form-data boundary 说明--转载
原文地址:http://xixinfei.iteye.com/blog/2002017 含义 ENCTYPE="multipart/form-data" 说明: 通过 http ...
- [转载红鱼儿]Delphi实现微信开发(3)如何使用multipart/form-data格式上传文件
开始前,先看下要实现的微信接口,上传多媒体文件,这个接口是用Form表单形式上传的文件.对我来说,对http的Form表单一知半解,还好,查到这个资料,如果你也和我一样,必须看看这篇文章. 在xali ...
- selenium+python自动化77-autoit文件上传【转载】
前言 关于非input文件上传,点上传按钮后,这个弹出的windows的控件了,已经跳出三界之外了,不属于selenium的管辖范围(selenium不是万能的,只能操作web上元素).autoit工 ...
- 【转载】前端上传文件,python作为后端接收并保存到本地--Tornado上传文件--分片上传文件--更换pip下载源
背景:在改造caffe自带demo时,增加了一个更新模型的功能,需要将用户训练好的caffemodel上传到服务器,并替换到已经存在的caffemodel文件,重新加载上传的caffemodel文件并 ...
- Fckeditor 2.4.2 php任意上传文件漏洞
1.漏洞描述 fckeditor/editor/filemanager/upload/php/upload.php <?php /* * FCKeditor - The text edi ...
- smartupload 上传文件时 把页面编码改成gbk 解决乱码
快来java1234 吧 smartupload 上传文件时,经常会发生因为把表单设置为 enctype="multipart/form-data"而出现的中文乱码问题,本人头疼好 ...
- 关于上传文件的跨域问题
在进行新框架开发的过程中,需要自定义页面组件实现脱离表单的文件(图片)上传,考虑过wex5自带的attachmentsimple的自定义写法很难受,就改用了第三方插件webuploader来实现选择文 ...
- html web上传文件原理,Web上传文件的原理及实现
本文为原创,如需转载,请注明作者和出处,谢谢! 现在有很多Web程序都有上传功能,实现上传功能的组件或框架也很多,如基于java的Commons FileUpload.还有Struts1.x和Stru ...
最新文章
- maven 使用 问题记录
- 2018年东北农业大学春季校赛 E 阶乘后的0【数论】
- python增量更新数据,Python中的增量最近邻算法
- Python基础(七)--模块和包
- osg布告板技术(Billboard)
- windows的盘共享挂载到linux下,通过Windows共享文件夹直接挂载到Linux中使用(实验操作)...
- Sister Sharp
- 对象序列化(六):应用实例-程序退出时保存状态
- idea用svn怎么检出项目_IDEA 从SVN检出项目相关配置
- ⑥tiny4412 Linux驱动开发之LCD(framebuffer)驱动程序
- 智能音箱调研报告|语音交互功能详析
- linux系统的wps办公软件,linux上安装wps办公软件
- Python matplot工具包之一的 mpl_toolkits绘制属于你的世界地图
- 「 计算机视觉」帧差法移动侦测
- 电容之超级电容简易测试方法
- ehcache 缓存丢失_解决Ehcache缓存警告问题
- 挖掘服务器ads怎么修改密码,数据管理服务器ADSADX.PDF
- vue cle新建vue项目
- 为何一些人认为从事 IT 行业的人是屌丝男?
- 学习大数据都需要哪些数学基础?