手机
当前位置:查字典教程网 >脚本专栏 >vbs >vbs fso跨盘移动文件夹的怪问题
vbs fso跨盘移动文件夹的怪问题
摘要:跨盘移动文件夹的怪问题SetobjFSO=CreateObject("Scripting.FileSystemObject")objFSO....

跨盘移动文件夹的怪问题

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.MoveFolder "C:Scripts" , "d:2"

权限拒绝,但是copy就可以。可以采用变通的办法先复制再删除

========================================wmi=================

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")

Set colFolders = objWMIService.ExecQuery _

("Select * from Win32_Directory where name = 'c:Scripts'")

For Each objFolder in colFolders

errResults = objFolder.Rename("d:VBScript")

Wscript.Echo errResults

Next

错误码13,估计是更名的时候不允许ren c:1 d:2这样的格式

========================Shell.Application可以成功====================

Const FOF_CREATEPROGRESSDLG = &H0&

TargetFolder = "c:3"

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.NameSpace(TargetFolder)

objFolder.MoveHere "d:downloads", FOF_CREATEPROGRESSDLG

但是必须目标文件夹(像本例的是c:3)存在才可以

【vbs fso跨盘移动文件夹的怪问题】相关文章:

ntiIframe.vbs用于批量清除被添加到文件中的恶意代码

VBS 添加右键计算文件MD5的实现代码

vbs循环产生的参数的传递问题

下载文件到本地运行的vbs

windows.vbs.FSO.文件操作信息.磁盘驱动信息.文件夹操作信息全集

使用vbs下载文件的代码加强版

vbs实现压缩文件夹的脚本

在一个vbs中包含其他vbs文件的方法

vbs屏蔽键盘按键

用vbs实现向任何电子邮件发送邮件

精品推荐
分类导航