VBS脚本:CopyFile
2010年08月08日
2010-08-08 个人认为自己编写的代码执行条件越严格越好,并且竟可能对所有可能的情况进行错误处理 Rem : =========== 将文件 file 复制到文件夹 folder 中 Rem : =========== file必须存在 Rem : =========== folder必须存在 Rem : =========== foler中不能存在与file同名的文件或文件夹 Sub CopyFile( file, folder ) If fso.fileexists(file)=False Then Err.Raise vbObjectError+128, "CopyFile", "File : " & file & " does not exist" Exit Sub End If If fso.folderexists(folder)=False Then Err.Raise vbObjectError+128, "CopyFile", "Folder : " & folder & " does not exist" Exit Sub End If Dim f f = folder If Right(f,1) "\" Then f = f & "\" End If f = f & GetFileName(file) If fso.fileexists(f) = True Or fso.folderexists(f) = True Then Err.Raise vbObjectError+128, "CopyFile", f & " already exists" Exit Sub End If fso.CopyFile file, folder, False End Sub
发表评论
-
vbs脚本:WriteText
2012-01-20 10:00 604vbs脚本:WriteText 2010年08月09日 ... -
vbs 脚本:CopyFile
2012-01-20 10:00 825vbs 脚本:CopyFile 2010年08月08日 ... -
vbs脚本:MoveFile
2012-01-20 10:00 684vbs脚本:MoveFile 2010年08月08日 R ... -
vbs脚本:CopyFolder
2012-01-20 10:00 611vbs脚本:CopyFolder 2010年08月08日 ... -
内存绘图
2012-01-19 15:02 503内存绘图 2010年10月07日 经常出现图形闪烁的 ... -
AS3+PNGEncoder PHP 上传图片
2012-01-19 15:02 947AS3+PNGEncoder PHP 上传图片 2010年1 ... -
毕业实习报告
2012-01-19 15:02 834毕业实习报告 2011年05 ... -
7月16号 键盘按键失灵? 蓝屏的终极处理?
2012-01-19 15:02 10017月16号 键盘按键失灵? 蓝屏的终极处理? 2011年07 ... -
Nutch源代码学习-解读Nutch-运行,爬行过程
2012-01-19 15:01 626Nutch源代码学习-解读Nutch-运行,爬行过程 201 ... -
电 脑 小 知 识 荟萃
2012-01-17 04:47 667电 脑 小 知 识 荟萃 201 ... -
lightscape dos 下渲染
2012-01-17 04:46 666lightscape dos 下渲染 2011年01月06日 ... -
苹果的配置
2012-01-17 04:46 668苹果的配置 2010年12月27日 苹果的配置 ... -
将bat代码转换为VBS的工具脚本
2012-01-16 03:39 1515将bat代码转换为VBS的工具脚本 2010年01月14日 ... -
按键精灵 脚本-学习VBS的一个不错的教程
2012-01-16 03:39 911按键精灵 脚本-学习VBS的一个不错的教程 2009年12月 ... -
一个整人的vbs脚本(yzy原创)
2012-01-16 03:39 750一个整人的vbs脚本(yzy原创) 2009年08月30日 ... -
脚本-vbs-有用的脚本
2012-01-16 03:39 718脚本-vbs-有用的脚本 2010年01月15日 ,显示 ... -
四个经典的vbs脚本整理
2012-01-16 03:39 715四个经典的vbs脚本整理 2010年05月01日 四个经 ...
相关推荐
要注意,无论 overwrite 设置为何值,只要设置 destination 为只读属性,CopyFile 操作就无法完成。 例子:Dim fso, newpath Set fso = CreateObject("Scripting.FileSystemObject") fso.copyfile "c:\test.txt",...
//程序名为:copyfile.c //执行时可用:copyfile filename1 filename2形式的命令行运行,将文件filename1中的内容复制到文件filename2中去。 //file copy program. #include <stdio.h> void main(int argc,char *...
CopyFile: MoveFile: 由函数原型可以看出,这两个函数的前两个输入参数都为LRCWSTR类型,如果我们定义的是char*,记得转换成LRCWSTR,否则会报错; 另外,这两个函数都返回一个bool型变量,表示执行成功与否,当...
复制某一给定目录下的文件 void FileCopyTo(CString source, CString destination, CString searchStr, BOOL cover = TRUE) ... ::CopyFile(SourcePath,DisPath,FALSE); //调用系统复制函数 }
前端开源库-dank-copyfiledank copyfile,纯javascript copyfile函数
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 ...
VC基于MFC、多线程的文件复制对话框实现
copyFile:复制文件,除非该路径中存在相同的内容 copyUpdated:复制新的和更新的文件和目录 递归列出 mkdirs 递归删除 showChangesToReapply:在两个“较新”和“较旧”的目录之间执行差异。 reapplyChanges:...
本文件主要是用于将文件夹下多级目录下的指定类型的文件,复制到指定文件夹内。 文件包含三行输入,第一行为要获取的文件类型,以.开始 如.xls ,多个类型的文件应以 , 隔开 如 .csv,.xls,.xlsx;...
所以就想把这些照片翻着看一遍,可是拷出来的照片手机 里是按时间自动.../usr/bin/python #Filename:copyfile.py import os,shutil def mycopy(srcpath,dstpath): if not os.path.exists(srcpath): print “srcpath not
linux下的文件复试函数,C语言实现,具有图形界面。
linux c 标准库函数 读写文件 复制文件
闲暇的时候用python 写的一个文件复制小软件 有什么功能缺陷请多多谅解 只是一个小插件.
此功能为UEFI程式下实现如何CopyFile及如何根据路径获取File的Handle,及判断文件是否存在等功能。
一、 课程设计题目和目的 本设计的目的是通过设计和调试一个简单的文件系统,主要是模拟文件操作命令的执行,来模拟文件管理,使学生...(9)复制文件: copyFile (10)移动文件: moveFile (11)返回根目录 (12)退出
一、课程设计题目和目的本设计的目的是通过设计和调试一个简单的文件系统,主要是模拟文件操作命令的执行,来模拟文件管理,使学生对主要文件操作命令的...copyFile(10)移动文件: moveFile(11)返回根目录(12)退出