vbs脚本:MoveFile
2010年08月08日
Rem : =========== 将文件 file 移动到文件夹 folder 中,相当于剪切操作 Rem : =========== file必须存在 Rem : =========== folder必须存在且属性不能为只读 Rem : =========== foler中不能存在与file同名的文件或文件夹 Sub MoveFile( 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, "MoveFile", "File : " & f1 & " does not exist" EndIfIf fso.folderexists(f2)=False ThenErr.Raise vbObjectError+128, "MoveFile", "Folder : " & f2 & " does not exist" EndIfDim f f = f2 & "\" & fso.GetFileName(f1)If fso.fileexists(f) = True Or fso.folderexists(f) = True ThenErr.Raise vbObjectError+128, "MoveFile", f & " already exists" EndIfDim errMsg OnError Resume Next fso.MoveFile f1, f2 & "\"IfErr.Number 0 Then errMsg = Err.Description OnError Goto 0 Err.Raise vbObjectError+128, "MoveFile", errMsg & vbNewLine & _ " file:" & vbTab & file & vbNewLine & _ " folder:" & vbTab & folderExitSubEndIfEndSub
发表评论
-
vbs脚本:CreateFolder
2012-01-20 01:33 665vbs脚本:CreateFolder 2010年08月09日 ... -
vbs脚本:WriteText
2012-01-20 01:33 630vbs脚本:WriteText 2010年08月09日 ... -
VBS脚本:CopyFile
2012-01-20 01:32 798VBS脚本:CopyFile 2010年08月08日 2 ... -
vbs 脚本:CopyFile
2012-01-20 01:32 876vbs 脚本:CopyFile 2010年08月08日 ... -
2012.1.10
2012-01-19 09:23 5202012.1.10 2011年12月28日 10锛 -
Virtools:把Virtools文件封装到可执行文件中
2012-01-17 01:57 540Virtools:把Virtools文件封装到可执行文件中 ... -
MFC的运行机制
2012-01-17 01:57 647MFC的运行机制 2011年04月08日 在MFC程序中 ... -
MFC消息响应机制及映射机制理解
2012-01-17 01:57 619MFC消息响应机制及映射机制理解 2010年11月30日 ... -
编程基本
2012-01-17 01:57 438编程基本 2011年09月03日 繁 -
VS2010编译安装boost
2012-01-17 01:57 599VS2010编译安装boost 2011年01月18日 ... -
c库函数和系统调用的区别(很模糊)
2012-01-15 21:13 687c库函数和系统调用的区 ... -
linux C库函数(一)
2012-01-15 21:13 669linux C库函数(一) 2010年0 ... -
系统调用、POSIX、C库、系统命令和内核函数
2012-01-15 21:13 597系统调用、POSIX、C库、 ... -
ASP小偷(三):文档对象模型DOM
2012-01-15 21:13 866ASP小偷(三):文档对象模型DOM 2009年08月22日 ...
相关推荐
资源分类:Python库 所属语言:Python 资源全名:movefile-restart-0.6.0.tar.gz 资源来源:官方 安装方法:https://lanzao.blog.csdn.net/article/details/101784059
作者:Mark Russinovich 简介 有些应用程序(如服务包和修补程序)必须替换正在使用而无法访问的文件。因此,Windows 提供了 MoveFileEx API 来重命名或删除文件,并允许调用方指定让此操作...movefile test.exe “”
MoveFile: 由函数原型可以看出,这两个函数的前两个输入参数都为LRCWSTR类型,如果我们定义的是char*,记得转换成LRCWSTR,否则会报错; 另外,这两个函数都返回一个bool型变量,表示执行成功与否,当目标位置路径...
定期移动文件.并写入windows 服务中.开机后自动运行
VB MoveFile 实现简单文件移动备份功能
* FileUtil::moveFile('b/1/2/3.exe','b/d/3.exe'); 测试移动文件 建立一个b/d文件夹,并把b/1/2中的3.exe移动进去 * FileUtil::unlinkFile('b/d/3.exe'); 测试删除文件 删除b/d/3.exe文件 * FileUtil::unlinkDir...
LINUX 开发文档技术 movefile.sh movefile.sh
比如说你把 movefile.exe 存在 c:\ 下面,你要删除 C:\test.exe 文件, 就打 C:\movefile.exe test.exe "" 提示:如果你懒得输入路径,可以用我们前面说的方法,把文件拖进去,文件名和完整路径都在里面了。 按回车...
用于懒人的C++实现程序,你可以直接下载,复制粘贴。一步到位啊。
将文件夹a下文件移动至文件夹b下所有与文件夹a下文件同名的文件夹下
一、 课程设计题目和目的 本设计的目的是通过设计和调试一个简单的文件系统,主要是模拟文件操作命令的执行,来模拟文件管理,使学生对主要文件操作命令的实质...(10)移动文件: moveFile (11)返回根目录 (12)退出
一、课程设计题目和目的本设计的目的是通过设计和调试一个简单的文件系统,主要是模拟文件操作命令的执行,来模拟文件管理,使学生对主要文件操作命令的...copyFile(10)移动文件: moveFile(11)返回根目录(12)退出
测试移动文件夹 建立一个b/c文件夹,并把a文件夹下的内容移动进去,并删除a文件夹 * FileUtil::moveFile('b/1/2/3.exe','b/d/3.exe'); 测试移动文件 建立一个b/d文件夹,并把b/1/2中的3.exe移动进去 * ...
DoitPHP 2.6 更新日志:2017-02-02一.Model基类中的许多类方法参数进行了重大调整。...扩展类:FileUpload的类方法:render() 更名为:moveFile()。四.扩展类:FileDownload的类方法:render() 更名为:getData()。
扩展类:FileUpload的类方法:render() 更名为:moveFile()。四.扩展类:FileDownload的类方法:render() 更名为:getData()。 DoitPHP前台截图 DoitPHP后台截图 相关阅读 同类推荐:站长常用源码
这几天做一个项目,是写一个语句,将D盘的文件全部移动到E盘去,在本地XP环境下测试是很好的。...用fso的movefile会出现权限不足的情况,那样代码不能执行。 所以 用copyfile 再deletefile 避免了不必要的麻烦。 即
begin moveFileEx(pchar(OpenDialog1.FileName),pchar('C:\' extractfilename(opendialog1.FileName)),MOVEFILE_COPY_ALLOWED); showmessage('文件已移动到C盘跟目录下'); end else showmessage('无法复制...
【实用工具】(BeyondCompare+CppCheck对某次更新的文件进行静态检查)按文件清单复制文件到指定文件夹的辅助工具【2023.07.07】
Result := MoveFile(PChar(OldName), PChar(NewName)); end; // 重命名文件夹 // RenameFolder('C:\1\','2'); // MoveFile('C:\1','C:\2'); // MoveFile('C:\1\','C:\2\'); function RenameFolder(filePath: ...