vbs fso跨盘移动文件夹的怪问题
导读：收集整理的这篇文章主要介绍了vbs fso跨盘移动文件夹的怪问题，觉得挺不错的，现在分享给大家，也给大家做个参考。 跨盘移动文件夹的怪问题 Set objFSO = CreateObje...
收集整理的这篇文章主要介绍了vbs fso跨盘移动文件夹的怪问题，觉得挺不错的，现在分享给大家，也给大家做个参考。 跨盘移动文件夹的怪问题 Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFolder "C:\Scripts" , "d:\2"
权限拒绝，但是copy就可以。可以采用变通的办法先复制再删除
========================================wmi=================
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{ imPErsonationLevel=impersonate} !\\" & strComputer & "\root\cimv2")
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）存在才可以
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： vbs fso跨盘移动文件夹的怪问题
本文地址： https://pptw.com/jishu/609725.html