vbs fso跨盘移动文件夹的怪问题

2009-9-25 16:07 851 0

摘要: 　　在实际应用中，发现了一个问题，vbs跨盘移动文件夹无权限，权限拒绝，但是copy就可以。可以采用变通的办法先复制再删除　　跨盘移动文件夹的怪问题　　Set objFSO = CreateO...

　　在实际应用中，发现了一个问题，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）存在才可以

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除