| 标题 | vbs fso跨盘移动文件夹的怪问题 |
| 范文 | 在实际应用中，发现了一个问题，vbs跨盘移动文件夹无权限，权限拒绝，但是copy就可以。可以采用变通的办法先复制再删除 跨盘移动文件夹的怪问题 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）存在才可以 |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。