欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

vbs fso跨盤移動(dòng)文件夾的怪問題

 更新時(shí)間：2008年10月24日 00:54:22   作者：  
在實(shí)際應(yīng)用中，發(fā)現(xiàn)了一個(gè)問題，vbs跨盤移動(dòng)文件夾無(wú)權(quán)限，權(quán)限拒絕，但是copy就可以。可以采用變通的辦法先復(fù)制再刪除
跨盤移動(dòng)文件夾的怪問題
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFolder "C:\Scripts" , "d:\2"
權(quán)限拒絕，但是copy就可以。可以采用變通的辦法先復(fù)制再刪除
========================================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
錯(cuò)誤碼13，估計(jì)是更名的時(shí)候不允許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
但是必須目標(biāo)文件夾（像本例的是c:\3）存在才可以

相關(guān)文章

最新評(píng)論