vbs脚本:MoveFolder
- 博客分类：
- 技术杂绘
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脚本:CopyFolder
2012-01-20 01:32 693vbs脚本:CopyFolder 2010年08月08日 ... -
vbs学习笔记
2012-01-20 01:32 563vbs学习笔记 2010年06月20日 刚解了下fso， ... -
分享一个单机游戏的NSIS封装包脚本代码
2012-01-20 01:32 1161分享一个单机游戏的NSIS封装包脚本代码 2011年05月1 ... -
在windows系统中配置关机和开机执行脚本
2012-01-20 01:32 3295在windows系统中配置关机和开机执行脚本 2010年09 ... -
Eclipse开发Android应用程序入门
2012-01-17 01:57 657Eclipse开发Android应用程序入门 2011年08 ... -
[转]win7搭建Android开发 个人测试成功
2012-01-17 01:57 1158[转]win7搭建Android开发 个人测试成功 2011 ... -
Android apk 签名
2012-01-17 01:57 1761Android apk 签名 2011年12 ... -
Java配置
2012-01-17 01:57 550Java配置 2011年06月10日 ... -
liunx编译android源码参考
2012-01-17 01:56 635liunx编译android源码参考 2011年10月20日 ... -
flex -google map API
2012-01-15 21:04 994flex -google map API 2010年02月2 ... -
用flex开发 google map应用程式
2012-01-15 21:04 774用flex开发 google map应用程式 2009年09 ... -
FLEX地图应用教程之一
2012-01-15 21:04 667FLEX地图应用教程之一 2 ... -
CentOS6.2(64)+Nginx1.0.10+PHP5.3.8(FPM)+MySQL5.5.18(PDO)+CoreSeek4.1源码编译
2012-01-15 21:04 1287CentOS6.2(64)+Nginx1.0.10+PHP5. ... -
麦克的总结
2012-01-15 21:04 588麦克的总结 2011年12月01日 昨天上班的时候Emm ...
相关推荐
'========================== 版权声明 ========================= '本程序只供在需要特别处理服务器文件时使用，严禁用于非法目的 '由于非正当使用本程序而造成的一切后果及责任自负 '版本: 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获取模板保存的默认路径 ...