| 标题 | 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）存在才可以 |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。