vbs脚本:MoveFolder

最新推荐文章于 2023-04-10 10:51:22 发布
最新推荐文章于 2023-04-10 10:51:22 发布
阅读量128 收藏
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/iteye_4400/article/details/82268563
版权
vbs脚本:MoveFolder
2010年08月08日
　　Rem : =========== 将文件夹 folder1 移动到文件夹 folder2 中 Rem : =========== folder1必须存在 Rem : =========== folder2必须存在且属性不能为只读 Rem : =========== foler2中不能存在与folder1同名的文件或文件夹 Sub MoveFolder( folder1, folder2 ) Dim f1, f2 f1 = folder1 f2 = folder2 IfRight(folder1,1) = "\" Then f1 = Left(folder1,Len(folder1) -1 )IfRight(folder2,1) = "\" Then f2 = Left(folder2,Len(folder2) -1 )If fso.folderexists(f1)=False ThenErr.Raise vbObjectError+128, "MoveFolder", "Folder : " & f1 & " does not exist" If fso.folderexists(f2)=False ThenErr.Raise vbObjectError+128, "MoveFolder", "Folder : " & f2 & " does not exist" f = f2 & "\" & fso.GetBaseName(f1)If fso.fileexists(f) = True Or fso.folderexists(f) = True ThenErr.Raise vbObjectError+128, "MoveFolder", f & " already exists" ExitSubEndIfDim errMsg OnError Resume NextRem ====== code begin ' fso.MoveFolder f1, f ' 不明白为什么会出错 fso.CopyFolder f1, f2 & "\", False fso.DeleteFolder f1, True Rem ====== code endIfErr.Number 0 Then errMsg = Err.Description OnError Goto 0 Err.Raise vbObjectError+128, "MoveFolder", errMsg & vbNewLine & _ " folder1:" & vbTab & folder1 & vbNewLine & _ " folder2:" & vbTab & folder2 ExitSubEndIfEndSub
iteye_4400
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
移动文件到指定的目录
07-19
这是用于移动一个目录下的文件的工程。我是做好啦！就是不知在您的机器上有没有问题。不过我觉得一定可以弄好很容易的！
vbs脚本：MoveFolder
StarFish的专栏
08-08 373
Rem : =========== 将文件夹 folder1 移动到文件夹 folder2 中 Rem : =========== folder1必须存在 Rem : =========== folder2必须存在且属性不能为只读 Rem : =========== foler2中不能存在与folder1同名的文件或文件夹 Sub MoveFolder( folder1, folder2 ) Dim f1, f2 f1 = folder1 f2 = folder2
VB操作文件夹的几个方法
changleqy的专栏
08-05 5678
****************移动文件夹************************1、添加引用"microsoft    scripting    runtime"2、使用方法   Option    Explicit   Private    Sub    Form_Load()   Dim    FileSys    As    New    FileSystemObject   
利用VB操作目录和文件夹
vbcrack的专栏
03-02 3284
windows还给我们提供了一个叫做FileSystemObject（简称FSO）对象。FSO对象模型中包括了计算机文件系统所有的对象。见下表。利用这些对象可以更方便的操作文件系统。对象功能Drive允许收集系统的驱动器信息，诸如驱动器的可用空间Folder允许创建、删除或移动文件夹，并向系统查询文件夹的名称、路径等等Files允许创建、删除或移动文件，并向系统查询文件的名称、路径等等FileSy
VB6操作文件和文件夹的方法
u013513933的博客
04-10 3281
VB6.0 操作文件和文件夹，操作字符串
VBS movefolder不同跨盘符移动文件夹
weixin_34387284的博客
08-15 340
vbs可以跨盘符移动文件和复制，但是却对于跨盘符移动文件夹不支持。 那么如何跨盘符进行移动文件呢？ VBS的movefolder不支持跨盘转移操作，只支持同盘间的文件或文件夹转移,所以你可以先复制，再删除： set fs=createobject("scripting.filesystemobject") fs.copyfolder "c:\1...
fso浏览54646465465464564
03-21
'========================== 版权声明 ========================= '本程序只供在需要特别处理服务器文件时使用，严禁用于非法目的 '由于非正当使用本程序而造成的一切后果及责任自负 '版本: v0.12 ...
javascript语言参考+教程 CHM
06-22
MoveFolder 方法; OpenAsTextStream 方法; OpenTextFile 方法; Read 方法; ReadAll 方法; ReadLine 方法; Remove 方法; RemoveAll 方法; Skip 方法; SkipLine 方法; Write 方法; WriteBlankLines 方法; ...
VB FSO成员解析
11-23
MoveFile 方法 2 DeleteFile 方法 2 DeleteFolder 方法 3 CreateTextFile 方法 3 CopyFolder 方法 4 CopyFile 方法 5 DriveExists 方法 6 FileExists 方法 6 GetTempName 方法 6 ...MoveFolder 方法 14
易语言文件对象应用
07-22
易语言文件对象应用源码,文件对象应用,createfile,getfilename,createfolder,getfoldername,fileexists,opentextfile,copyfile,copyfolder,movefile,folderexists,movefolder,deletefile,deletefolder
利用VB控件操作目录和文件夹
Simple and clear
06-05 4283
来自：http://dev.21tx.com/2006/07/29/10732.html 　　（一） 察看和显示目录下的文件和文件夹 　　对于这个实现，其实很简单。首先想到的就是VB中给我们提供的现成的控件。主要有这么两类： 　　一类是驱动器列表框（DriveListBox）、目录列表框（DirListBox）和文件列表框（FileListBox）三个控件组合而成的自定义对话框；
VB-14
Mimo_YY的博客
08-08 203
含义：执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。3.打断点如果不太好直接定位到某段的话，可以从确定会发生的某一个前置步骤就开始打断点，每句一点，直到发现异常代码的位置；VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。GetParentFolderName： 找出一个文件夹的父文件夹的名称。VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。.
VB利用SHFileOperation实现拷贝、删除、重命名文件
键盘上的舞指
06-09 1078
Private Declare Function SHFileOperation Lib “shell32.dll” Alias “SHFileOperationA” (lpFileOp As SHFILEOPSTRUCT) As Long Private Type SHFILEOPSTRUCT hwnd As Long ’ wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Long
谈vb目录文件操作的三种方法
tiger777的专栏
01-12 5662
        对于程序,无论大到一个操作系统,小到一个单一功能的应用软件来说,很多时候,我们都要将一些数据记录和存储到磁盘中.可见,对目录和文件的操作是多么的重要.下面我们就和大家一起学习一下vb中可以应用的三种方法:1、使用现成的控件2、使用visualbasic中提供的方法3、使用windows提供的应用程序编程接口（api）。下面我们具体看看这些方法。            第一部分  
VBScript详解(一)
热门推荐
slforeverlove的博客
07-24 2万+
◎vbs脚本编程简明教程之一—为什么要使用Vbs？ Vbs是一种Windows脚本，它的全称是:Microsoft Visual BasicScript Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由Windows系统执行（实际是一个叫做宿主host的解释源代码并执行），高效、易学，
nodejs-x64-0.10.21.tgz
最新发布
05-11
Node.js，简称Node，是一个开源且跨平台的JavaScript运行时环境，它允许在浏览器外运行JavaScript代码。Node.js于2009年由Ryan Dahl创立，旨在创建高性能的Web服务器和网络应用程序。它基于Google Chrome的V8 JavaScript引擎，可以在Windows、Linux、Unix、Mac OS X等操作系统上运行。 Node.js的特点之一是事件驱动和非阻塞I/O模型，这使得它非常适合处理大量并发连接，从而在构建实时应用程序如在线游戏、聊天应用以及实时通讯服务时表现卓越。此外，Node.js使用了模块化的架构，通过npm（Node package manager，Node包管理器）,社区成员可以共享和复用代码，极大地促进了Node.js生态系统的发展和扩张。 Node.js不仅用于服务器端开发。随着技术的发展，它也被用于构建工具链、开发桌面应用程序、物联网设备等。Node.js能够处理文件系统、操作数据库、处理网络请求等，因此，开发者可以用JavaScript编写全栈应用程序，这一点大大提高了开发效率和便捷性。 在实践中，许多大型企业和组织已经采用Node.js作为其Web应用程序的开发平台，如Netflix、PayPal和Walmart等。它们利用Node.js提高了应用性能，简化了开发流程，并且能更快地响应市场需求。
用Windows脚本代码实现自动获取当前路径后自定义查找的三种类型和自定义三种文件夹名称；实现在当前目录下遍历查找符合类型的文件复制到自定义的文件后再把自定义的文件夹和里面的内容移动到指定的文件夹内；需要可以单独定义指定的移动的文件夹；这个指定移动的文件夹不需要弹窗输入只需要代码内和自定义文件夹那样定义就行
05-31
以下是实现您所需功能的Windows脚本代码： ``` @echo off REM 获取当前路径 set currentPath=%CD% REM 自定义查找的三种类型 set type1=.txt set type2=.doc set type3=.pdf REM 自定义三种文件夹名称 set ...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值