vbs fso跨盤(pán)移動(dòng)文件夾的怪問(wèn)題
來(lái)源:易賢網(wǎng) 閱讀:1283 次 日期:2016-07-21 14:00:55
溫馨提示:易賢網(wǎng)小編為您整理了“vbs fso跨盤(pán)移動(dòng)文件夾的怪問(wèn)題”,方便廣大網(wǎng)友查閱!

在實(shí)際應(yīng)用中,發(fā)現(xiàn)了一個(gè)問(wèn)題,vbs跨盤(pán)移動(dòng)文件夾無(wú)權(quán)限,權(quán)限拒絕,但是copy就可以。可以采用變通的辦法先復(fù)制再刪除

跨盤(pán)移動(dòng)文件夾的怪問(wèn)題

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.MoveFolder "C:\Scripts" , "d:\2"

權(quán)限拒絕,但是copy就可以??梢圆捎米兺ǖ霓k法先復(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)存在才可以

更多信息請(qǐng)查看腳本欄目
易賢網(wǎng)手機(jī)網(wǎng)站地址:vbs fso跨盤(pán)移動(dòng)文件夾的怪問(wèn)題
由于各方面情況的不斷調(diào)整與變化,易賢網(wǎng)提供的所有考試信息和咨詢(xún)回復(fù)僅供參考,敬請(qǐng)考生以權(quán)威部門(mén)公布的正式信息和咨詢(xún)?yōu)闇?zhǔn)!

2025國(guó)考·省考課程試聽(tīng)報(bào)名

  • 報(bào)班類(lèi)型
  • 姓名
  • 手機(jī)號(hào)
  • 驗(yàn)證碼
關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡(jiǎn)要咨詢(xún) | 簡(jiǎn)要咨詢(xún)須知 | 加入群交流 | 手機(jī)站點(diǎn) | 投訴建議
工業(yè)和信息化部備案號(hào):滇ICP備2023014141號(hào)-1 云南省教育廳備案號(hào):云教ICP備0901021 滇公網(wǎng)安備53010202001879號(hào) 人力資源服務(wù)許可證:(云)人服證字(2023)第0102001523號(hào)
云南網(wǎng)警備案專(zhuān)用圖標(biāo)
聯(lián)系電話(huà):0871-65099533/13759567129 獲取招聘考試信息及咨詢(xún)關(guān)注公眾號(hào):hfpxwx
咨詢(xún)QQ:526150442(9:00—18:00)版權(quán)所有:易賢網(wǎng)
云南網(wǎng)警報(bào)警專(zhuān)用圖標(biāo)