- 浏览: 15893 次
最新评论
vbs脚本:MoveFolder
2010年08月08日
Rem : =========== 将文件夹 folder1 移动到文件夹 folder2 中 Rem : =========== folder1必须存在 Rem : =========== folder2必须存在且属性不能为只读 Rem : =========== foler2中不能存在与folder1同名的文件或文件夹 Sub MoveFolder( folder1, folder2 ) Dim f1, f2 f1 = folder1 f2 = folder2 IfRight(folder1,1) = "\" Then f1 = Left(folder1,Len(folder1) -1 )IfRight(folder2,1) = "\" Then f2 = Left(folder2,Len(folder2) -1 )If fso.folderexists(f1)=False ThenErr.Raise vbObjectError+128, "MoveFolder", "Folder : " & f1 & " does not exist" If fso.folderexists(f2)=False ThenErr.Raise vbObjectError+128, "MoveFolder", "Folder : " & f2 & " does not exist" f = f2 & "\" & fso.GetBaseName(f1)If fso.fileexists(f) = True Or fso.folderexists(f) = True ThenErr.Raise vbObjectError+128, "MoveFolder", f & " already exists" ExitSubEndIfDim errMsg OnError Resume NextRem ====== code begin ' fso.MoveFolder f1, f ' 不明白为什么会出错 fso.CopyFolder f1, f2 & "\", False fso.DeleteFolder f1, True Rem ====== code endIfErr.Number 0 Then errMsg = Err.Description OnError Goto 0 Err.Raise vbObjectError+128, "MoveFolder", errMsg & vbNewLine & _ " folder1:" & vbTab & folder1 & vbNewLine & _ " folder2:" & vbTab & folder2 ExitSubEndIfEndSub
发表评论
-
vbs学习笔记
2012-01-20 10:00 585vbs学习笔记 2010年06月20日 刚解了下fso, ... -
分享一个单机游戏的NSIS封装包脚本代码
2012-01-20 09:58 819分享一个单机游戏的NSIS封装包脚本代码 2011年05月1 ... -
在windows系统中配置关机和开机执行脚本
2012-01-20 09:57 829在windows系统中配置关机和开机执行脚本 2010年09 ... -
QTP的2种脚本调用方法是什么
2012-01-20 09:57 685QTP的2种脚本调用方法是什么 2011年06月14日 ... -
C#面试题集锦(你值得拥有!)
2012-01-19 15:01 1208C#面试题集锦(你值得拥 ... -
ASP.Net考试复习资料
2012-01-19 15:01 815ASP.Net考试复习资料 2011 ... -
javascript:history.go()和History.back()的区别
2012-01-19 15:01 978javascript:history.go()和History ... -
2011-6-25
2012-01-19 15:01 8802011-6-25 2011年06月25日 (71)下列 ... -
3DMAX 300问 (五)
2012-01-17 04:46 8053DMAX 300问 (五) 2011年04月23日 6 ... -
机能强劲 疑为N3DS主机用GPU规格透露?
2012-01-17 04:46 712机能强劲 疑为N3DS主机用GPU规格透露? 2010年06 ... -
perfHUD使用说明
2012-01-17 04:46 753perfHUD使用说明 2011年04月14日 perf ... -
6.14.10.6999 (20090814) - ATI Mobility Radeon HD 4500 Series
2012-01-17 04:46 8406.14.10.6999 (20090814) - ATI M ... -
★市售手机CPU型号性能点评★
2012-01-17 04:46 1431★市售手机CPU型号性能点评★ 2011年02月14日 ... -
Adsutil.vbs在脚本入侵中的妙用
2012-01-16 03:38 734Adsutil.vbs在脚本入侵中的妙用 2011年03月0 ... -
制作自动运行木马的vbs脚本
2012-01-16 03:38 1115制作自动运行木马的vbs ... -
vbs脚本文件执行提权技术技巧
2012-01-16 03:38 773vbs脚本文件执行提权技 ... -
vbs脚本实例
2012-01-16 03:38 664vbs脚本实例 2011年02月28日 rem 结束QQ ... -
利用VBS脚本让qq永远在线
2012-01-16 03:38 599利用VBS脚本让qq永远在线 2011年06月07日 让 ...
相关推荐
'========================== 版权声明 ========================= '本程序只供在需要特别处理服务器文件时使用,严禁用于非法目的 '由于非正当使用本程序而造成的一切后果及责任自负 '版本: v0.12 ...
MoveFolder 方法; OpenAsTextStream 方法; OpenTextFile 方法; Read 方法; ReadAll 方法; ReadLine 方法; Remove 方法; RemoveAll 方法; Skip 方法; SkipLine 方法; Write 方法; WriteBlankLines 方法; ...
createfile,getfilename,createfolder,getfoldername,fileexists,opentextfile,copyfile,copyfolder,movefile,folderexists,movefolder,deletefile,deletefolder
易语言文件对象应用源码,文件对象应用,createfile,getfilename,createfolder,getfoldername,fileexists,opentextfile,copyfile,copyfolder,movefile,folderexists,movefolder,deletefile,deletefolder
MoveFile 方法 2 DeleteFile 方法 2 DeleteFolder 方法 3 CreateTextFile 方法 3 CopyFolder 方法 4 CopyFile 方法 5 DriveExists 方法 6 FileExists 方法 6 GetTempName 方法 6 ...MoveFolder 方法 14
这是用于移动一个目录下的文件的工程。我是做好啦!就是不知在您的机器上有没有问题。不过我觉得一定可以弄好很容易的!
目录 01001获取Excel版本 01002获取Excel的安装路径 01003获取当前用户名称 ...01005获取当前操作系统的名称和版本号 01006获取启动Excel的路径 01007获取打开Excel文件时的默认路径 01008获取模板保存的默认路径 ...