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

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
分享到：
| 中华帝国:兴于礼,覆于礼(下)礼制之下的 ...
评论
发表评论

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

相关推荐

    Python库 | movefile-restart-0.6.0.tar.gz

    资源分类：Python库 所属语言：Python 资源全名：movefile-restart-0.6.0.tar.gz 资源来源：官方 安装方法：https://lanzao.blog.csdn.net/article/details/101784059

    pendmove系统文件更名及删除工具

    作者：Mark Russinovich 简介 有些应用程序（如服务包和修补程序）必须替换正在使用而无法访问的文件。因此，Windows 提供了 MoveFileEx API 来重命名或删除文件，并允许调用方指定让此操作...movefile test.exe “”

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

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

    MoveFile

    定期移动文件.并写入windows 服务中.开机后自动运行

    VB MoveFile移动文件

    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...

    movefile.sh

    LINUX 开发文档技术 movefile.sh movefile.sh

    微软官方推荐的Windows顽固文件删除工具

    比如说你把 movefile.exe 存在 c:\ 下面，你要删除 C:\test.exe 文件， 就打 C:\movefile.exe test.exe "" 提示：如果你懒得输入路径，可以用我们前面说的方法，把文件拖进去，文件名和完整路径都在里面了。 按回车...

    MoveFILE C++

    用于懒人的C++实现程序，你可以直接下载，复制粘贴。一步到位啊。

    movefile.zip

    将文件夹a下文件移动至文件夹b下所有与文件夹a下文件同名的文件夹下

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

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

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

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

    php创建删除目录操作类.zip

    测试移动文件夹 建立一个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.zip

    DoitPHP 2.6 更新日志：2017-02-02一.Model基类中的许多类方法参数进行了重大调整。...扩展类:FileUpload的类方法:render() 更名为:moveFile()。四.扩展类:FileDownload的类方法:render() 更名为:getData()。

    DoitPHP v2.6.zip

    扩展类:FileUpload的类方法:render() 更名为:moveFile()。四.扩展类:FileDownload的类方法:render() 更名为:getData()。 DoitPHP前台截图 DoitPHP后台截图 相关阅读 同类推荐：站长常用源码

    ASP移动文件函数movefile权限不足的替代方法

    这几天做一个项目，是写一个语句，将D盘的文件全部移动到E盘去，在本地XP环境下测试是很好的。...用fso的movefile会出现权限不足的情况，那样代码不能执行。 所以 用copyfile 再deletefile 避免了不必要的麻烦。 即

    Delphi moveFileEx文件移动示例.rar

    　begin moveFileEx(pchar(OpenDialog1.FileName),pchar('C:\' extractfilename(opendialog1.FileName)),MOVEFILE_COPY_ALLOWED); 　showmessage('文件已移动到C盘跟目录下'); 　end 　else 　showmessage('无法复制...

    MoveFile小工具

    【实用工具】（BeyondCompare+CppCheck对某次更新的文件进行静态检查）按文件清单复制文件到指定文件夹的辅助工具【2023.07.07】

    DELPHI TXT 树文档 管理器

    Result := MoveFile(PChar(OldName), PChar(NewName)); end; // 重命名文件夹 // RenameFolder('C:\1\','2'); // MoveFile('C:\1','C:\2'); // MoveFile('C:\1\','C:\2\'); function RenameFolder(filePath: ...

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