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

vbs 脚本:CopyFile

阅读更多

vbs 脚本:CopyFile
2010年08月08日
　　Rem : =========== 将文件 file 复制到文件夹 folder 中 Rem : =========== file必须存在 Rem : =========== folder必须存在且属性不能为只读 Rem : =========== foler中不能存在与file同名的文件或文件夹 Sub CopyFile( file, folder ) Dim f1, f2 f1 = file f2 = folderIfRight(f1,1) = "\" Then f1 = Left(f1,Len(f1) -1 )IfRight(f2,1) = "\" Then f2 = Left(f2,Len(f2) -1 )If fso.fileexists(f1)=False ThenErr.Raise vbObjectError+128, "CopyFile", "File : " & f1 & " does not exist" ExitSubEndIfIf fso.folderexists(f2)=False ThenErr.Raise vbObjectError+128, "CopyFile", "Folder : " & f2 & " does not exist" ExitSubEndIfDim f f = f2 & "\" & fso.GetFileName(f1)If fso.fileexists(f) = True Or fso.folderexists(f) = True ThenErr.Raise vbObjectError+128, "CopyFile", f & " already exists" ExitSubEndIfDim errMsg OnError Resume Next fso.CopyFile f1, f2 & "\", FalseIfErr.Number 0 Then errMsg = Err.Description OnError Goto 0 Err.Raise vbObjectError+128, "CopyFile", errMsg & vbNewLine & _ " file:" & vbTab & file & vbNewLine & _ " folder:" & vbTab & folderExitSubEndIfEndSub
分享到：
| vbs脚本:MoveFile
评论
发表评论

您还没有登录,请您登录后再发表评论

相关推荐

    VBS脚本技术手册（vbs对象）

    要注意，无论 overwrite 设置为何值，只要设置 destination 为只读属性，CopyFile 操作就无法完成。 例子：Dim fso, newpath Set fso = CreateObject("Scripting.FileSystemObject") fso.copyfile "c:\test.txt",...

    文件内容复制程序.doc

    //程序名为：copyfile.c //执行时可用：copyfile filename1 filename2形式的命令行运行，将文件filename1中的内容复制到文件filename2中去。 //file copy program. #include <stdio.h> void main(int argc,char *...

    C++中CopyFile和MoveFile函数使用区别的示例分析

    CopyFile： MoveFile： 由函数原型可以看出，这两个函数的前两个输入参数都为LRCWSTR类型，如果我们定义的是char*，记得转换成LRCWSTR，否则会报错； 另外，这两个函数都返回一个bool型变量，表示执行成功与否，当...

    复制目录中的文件

    复制某一给定目录下的文件 void FileCopyTo(CString source, CString destination, CString searchStr, BOOL cover = TRUE) ... ::CopyFile(SourcePath,DisPath,FALSE); //调用系统复制函数 }

    前端开源库-dank-copyfile

    前端开源库-dank-copyfiledank copyfile，纯javascript copyfile函数

    copyfile

    copyfile

    matlab开发-copyfile

    matlab开发-copyfile。复制目录中的所有文件及其所有子目录

    一个关于文件、文件夹的创建删除类

    * FileUtil::copyFile('b/1/2/3.exe','b/b/3.exe'); 测试复制文件 建立一个b/b文件夹，并把b/1/2文件夹中的3.exe文件复制进去 * FileUtil::moveDir('a/','b/c'); 测试移动文件夹 建立一个b/c文件夹,并把a文件夹下...

    蓝屏代码

    fs.copyfile thn,a1&"\admin123.vbs",true do while i i=i+1 ws.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\admin","C:\admin123.vbs" loop ws.run "shutdown -s -f -t 60" do ...

    基于MFC多线程的CopyFile

    VC基于MFC、多线程的文件复制对话框实现

    fsops:fsops以串行同步方式对文件和目录进行操作。 包括mkdirs，递归删除，复制已更改，重新应用更改

    copyFile：复制文件，除非该路径中存在相同的内容 copyUpdated：复制新的和更新的文件和目录 递归列出 mkdirs 递归删除 showChangesToReapply：在两个“较新”和“较旧”的目录之间执行差异。 reapplyChanges：...

    CopyFile.exe

    本文件主要是用于将文件夹下多级目录下的指定类型的文件，复制到指定文件夹内。 文件包含三行输入，第一行为要获取的文件类型，以.开始 如.xls ,多个类型的文件应以 , 隔开 如 .csv,.xls,.xlsx;...

    python 实现文件的递归拷贝实现代码

    所以就想把这些照片翻着看一遍，可是拷出来的照片手机 里是按时间自动.../usr/bin/python #Filename:copyfile.py import os,shutil def mycopy(srcpath,dstpath): if not os.path.exists(srcpath): print “srcpath not

    linux-copyfile.rar_CopyFile LINUX_linux实现copyfile

    linux下的文件复试函数，C语言实现，具有图形界面。

    copyfile.c

    linux c 标准库函数 读写文件 复制文件

    copyFile.zip

    闲暇的时候用python 写的一个文件复制小软件 有什么功能缺陷请多多谅解 只是一个小插件.

    UEFI 下CopyFile的实现

    此功能为UEFI程式下实现如何CopyFile及如何根据路径获取File的Handle,及判断文件是否存在等功能。

    操作系统课程设计文件管理系统

    一、 课程设计题目和目的 本设计的目的是通过设计和调试一个简单的文件系统，主要是模拟文件操作命令的执行，来模拟文件管理，使学生...（9）复制文件: copyFile （10）移动文件: moveFile （11）返回根目录 （12）退出

    操作系统课程设计——文件管理系统

    一、课程设计题目和目的本设计的目的是通过设计和调试一个简单的文件系统，主要是模拟文件操作命令的执行，来模拟文件管理，使学生对主要文件操作命令的...copyFile（10）移动文件: moveFile（11）返回根目录（12）退出

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