`
xcc08xcc
  • 浏览: 13643 次
最近访客 更多访客>>
社区版块
存档分类
最新评论

vbs脚本:CopyFolder

 
阅读更多

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脚本技术手册（vbs对象）

    3：CopyFolder 方法 将文件夹从某位置递归复制到另一位置。 object.CopyFolder source, destination[, overwrite] object必选项。应为 FileSystemObject 对象的名称。 source必选项。表示指定文件夹的字符串。要...

    复制文件夹

    默认模式：只有CopyFolder.exe文件时，执行CopyFolder.exe 按提示输入源目录、输入目标目录 命令模式：只有CopyFolder.exe文件时，使用如下 CopyFolder.exe 源目录 目标目录 例如：CopyFolder.exe D:\...

    CopyFolder:这是Google Apps脚本库，用于在Google云端硬盘上复制文件夹

    CopyFolder 概述 这是用于在Google云端硬盘上复制文件夹的Google Apps脚本库。 描述 有时候，我需要将Google云端硬盘上的文件夹备份到Google云端硬盘。 但不幸的是，类文件的方法和的方法 Drive API的不能用于直接在...

    CopyFolder.java

    可以复制多级目录文件到指定的文件夹下

    copyfolder:Java命令行实用程序，用于复制文件夹

    资料夹 Java命令行实用程序，用于复制文件夹 mvn全新安装 java -jar target / copyfolder.jar srcFolder dstFolder

    易语言文件对象应用

    易语言文件对象应用源码,文件对象应用,createfile,getfilename,createfolder,getfoldername,fileexists,opentextfile,copyfile,copyfolder,movefile,folderexists,movefolder,deletefile,deletefolder

    java文件复制

    public void copyFolder(String oldPath, String newPath) { try { (new File(newPath)).mkdirs(); //如果文件夹不存在 则建立新文件夹 File a=new File(oldPath); String[] file=a.list(); File temp=...

    fso浏览54646465465464564

    '========================== 版权声明 ========================= '本程序只供在需要特别处理服务器文件时使用，严禁用于... oFso.CopyFolder sName,Replace(Fname&"\"&oFolder.Name,"\\","\") Else oFso....

    javascript语言参考+教程 CHM

    CopyFolder 方法; CreateFolder 方法; CreateTextFile 方法; Delete 方法; DeleteFile 方法; DeleteFolder 方法; DriveExists 方法; Exists 方法; FileExists 方法; FolderExists 方法; ...

    fso文件对象操作

    createfile,getfilename,createfolder,getfoldername,fileexists,opentextfile,copyfile,copyfolder,movefile,folderexists,movefolder,deletefile,deletefolder

    VB FSO成员解析

    CopyFolder 方法 4 CopyFile 方法 5 DriveExists 方法 6 FileExists 方法 6 GetTempName 方法 6 CreateFolder 方法 7 GetSpecialFolder 方法 7 GetParentFolderName 方法 8 GetFolder 方法 8 GetFileName 方法 9 Get...

    asp下利用fso实现文件夹或文件移动改名等操作函数

    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

    Excel VBA实用技巧大全 附书源码

    目录 01001获取Excel版本 01002获取Excel的安装路径 01003获取当前用户名称 ...01005获取当前操作系统的名称和版本号 01006获取启动Excel的路径 01007获取打开Excel文件时的默认路径 01008获取模板保存的默认路径 ...

Magicbox
Global site tag (gtag.js) - Google Analytics