vbs脚本:CopyFolder
2010年08月08日
Rem : =========== 将文件夹 folder1 复制到文件夹 folder2 中 Rem : =========== folder1必须存在 Rem : =========== folder2必须存在且属性不能为只读 Rem : =========== foler2中不能存在与folder1同名的文件或文件夹 Sub CopyFolder( 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, "CopyFolder", "Folder : " & f1 & " does not exist" If fso.folderexists(f2)=False ThenErr.Raise vbObjectError+128, "CopyFolder", "Folder : " & f2 & " does not exist" f = f2 & "\" & fso.GetBaseName(f1)If fso.fileexists(f) = True Or fso.folderexists(f) = True ThenErr.Raise vbObjectError+128, "CopyFolder", f & " already exists" ExitSubEndIfDim errMsg OnError Resume NextRem ====== code begin fso.CopyFolder f1, f2 & "\", FalseRem ====== code endIfErr.Number 0 Then errMsg = Err.Description OnError Goto 0 Err.Raise vbObjectError+128, "CopyFolder", errMsg & vbNewLine & _ " folder1:" & vbTab & folder1 & vbNewLine & _ " folder2:" & vbTab & folder2 ExitSubEndIfEndSub
发表评论
-
vbs学习笔记
2012-01-20 01:32 566vbs学习笔记 2010年06月20日 刚解了下fso, ... -
vbs脚本:MoveFolder
2012-01-20 01:32 699vbs脚本:MoveFolder 2010年08月08日 ... -
分享一个单机游戏的NSIS封装包脚本代码
2012-01-20 01:32 1164分享一个单机游戏的NSIS封装包脚本代码 2011年05月1 ... -
在windows系统中配置关机和开机执行脚本
2012-01-20 01:32 3302在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 1762Android apk 签名 2011年12 ... -
Java配置
2012-01-17 01:57 552Java配置 2011年06月10日 ... -
liunx编译android源码参考
2012-01-17 01:56 637liunx编译android源码参考 2011年10月20日 ... -
flex -google map API
2012-01-15 21:04 996flex -google map API 2010年02月2 ... -
用flex开发 google map应用程式
2012-01-15 21:04 778用flex开发 google map应用程式 2009年09 ... -
FLEX地图应用教程之一
2012-01-15 21:04 670FLEX地图应用教程之一 2 ... -
CentOS6.2(64)+Nginx1.0.10+PHP5.3.8(FPM)+MySQL5.5.18(PDO)+CoreSeek4.1源码编译
2012-01-15 21:04 1290CentOS6.2(64)+Nginx1.0.10+PHP5. ... -
麦克的总结
2012-01-15 21:04 590麦克的总结 2011年12月01日 昨天上班的时候Emm ...
相关推荐
3:CopyFolder 方法 将文件夹从某位置递归复制到另一位置。 object.CopyFolder source, destination[, overwrite] object必选项。应为 FileSystemObject 对象的名称。 source必选项。表示指定文件夹的字符串。要...
默认模式:只有CopyFolder.exe文件时,执行CopyFolder.exe 按提示输入源目录、输入目标目录 命令模式:只有CopyFolder.exe文件时,使用如下 CopyFolder.exe 源目录 目标目录 例如:CopyFolder.exe D:\...
CopyFolder 概述 这是用于在Google云端硬盘上复制文件夹的Google Apps脚本库。 描述 有时候,我需要将Google云端硬盘上的文件夹备份到Google云端硬盘。 但不幸的是,类文件的方法和的方法 Drive API的不能用于直接在...
可以复制多级目录文件到指定的文件夹下
资料夹 Java命令行实用程序,用于复制文件夹 mvn全新安装 java -jar target / copyfolder.jar srcFolder dstFolder
易语言文件对象应用源码,文件对象应用,createfile,getfilename,createfolder,getfoldername,fileexists,opentextfile,copyfile,copyfolder,movefile,folderexists,movefolder,deletefile,deletefolder
public void copyFolder(String oldPath, String newPath) { try { (new File(newPath)).mkdirs(); //如果文件夹不存在 则建立新文件夹 File a=new File(oldPath); String[] file=a.list(); File temp=...
'========================== 版权声明 ========================= '本程序只供在需要特别处理服务器文件时使用,严禁用于... oFso.CopyFolder sName,Replace(Fname&"\"&oFolder.Name,"\\","\") Else oFso....
CopyFolder 方法; CreateFolder 方法; CreateTextFile 方法; Delete 方法; DeleteFile 方法; DeleteFolder 方法; DriveExists 方法; Exists 方法; FileExists 方法; FolderExists 方法; ...
createfile,getfilename,createfolder,getfoldername,fileexists,opentextfile,copyfile,copyfolder,movefile,folderexists,movefolder,deletefile,deletefolder
CopyFolder 方法 4 CopyFile 方法 5 DriveExists 方法 6 FileExists 方法 6 GetTempName 方法 6 CreateFolder 方法 7 GetSpecialFolder 方法 7 GetParentFolderName 方法 8 GetFolder 方法 8 GetFileName 方法 9 Get...
asp利用fso实现文件的移动function movefiles(sFolder,dFolder) on error resume next dim fso set fso =...and fso.folderexists(server.mappath(dFolder)) then fso.copyfolder server.mappath(sFolder),s
目录 01001获取Excel版本 01002获取Excel的安装路径 01003获取当前用户名称 ...01005获取当前操作系统的名称和版本号 01006获取启动Excel的路径 01007获取打开Excel文件时的默认路径 01008获取模板保存的默认路径 ...