跨盘移动文件夹
 
跨盘移动文件夹 
跨盘移动文件夹的怪问题 
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）存在才可以