vbs脚本:MoveFile
- 博客分类:
- 技术杂绘
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脚本:WriteText
2012-01-20 10:00 603vbs脚本:WriteText 2010年08月09日 ... -
VBS脚本:CopyFile
2012-01-20 10:00 547VBS脚本:CopyFile 2010年08月08日 2 ... -
vbs 脚本:CopyFile
2012-01-20 10:00 824vbs 脚本:CopyFile 2010年08月08日 ... -
vbs脚本:CopyFolder
2012-01-20 10:00 609vbs脚本:CopyFolder 2010年08月08日 ... -
内存绘图
2012-01-19 15:02 499内存绘图 2010年10月07日 经常出现图形闪烁的 ... -
AS3+PNGEncoder PHP 上传图片
2012-01-19 15:02 944AS3+PNGEncoder PHP 上传图片 2010年1 ... -
毕业实习报告
2012-01-19 15:02 831毕业实习报告 2011年05 ... -
7月16号 键盘按键失灵? 蓝屏的终极处理?
2012-01-19 15:02 9997月16号 键盘按键失灵? 蓝屏的终极处理? 2011年07 ... -
Nutch源代码学习-解读Nutch-运行,爬行过程
2012-01-19 15:01 624Nutch源代码学习-解读Nutch-运行,爬行过程 201 ... -
电 脑 小 知 识 荟萃
2012-01-17 04:47 665电 脑 小 知 识 荟萃 201 ... -
lightscape dos 下渲染
2012-01-17 04:46 663lightscape dos 下渲染 2011年01月06日 ... -
苹果的配置
2012-01-17 04:46 640苹果的配置 2010年12月27日 苹果的配置 ... -
将bat代码转换为VBS的工具脚本
2012-01-16 03:39 1456将bat代码转换为VBS的工具脚本 2010年01月14日 ... -
按键精灵 脚本-学习VBS的一个不错的教程
2012-01-16 03:39 904按键精灵 脚本-学习VBS的一个不错的教程 2009年12月 ... -
一个整人的vbs脚本(yzy原创)
2012-01-16 03:39 744一个整人的vbs脚本(yzy原创) 2009年08月30日 ... -
脚本-vbs-有用的脚本
2012-01-16 03:39 712脚本-vbs-有用的脚本 2010年01月15日 ,显示 ... -
四个经典的vbs脚本整理
2012-01-16 03:39 708四个经典的vbs脚本整理 2010年05月01日 四个经 ...
相关推荐
资源分类: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: ...