vbs fso跨盤移動(dòng)文件夾的怪問題
更新時(shí)間：2008年10月24日 00:54:22 作者：
在實(shí)際應(yīng)用中，發(fā)現(xiàn)了一個(gè)問題，vbs跨盤移動(dòng)文件夾無權(quán)限，權(quán)限拒絕，但是copy就可以?？梢圆捎米兺ǖ霓k法先復(fù)制再刪除
跨盤移動(dòng)文件夾的怪問題
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）存在才可以
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）存在才可以
相關(guān)文章
vbs結(jié)合adox實(shí)現(xiàn)提取表名，列名等信息的的vbs類一直沒怎么了解adox，先轉(zhuǎn)過來，有時(shí)間研究下！！2008-07-07
ass2srt.vbs(ass/ssa批量轉(zhuǎn)換srt的腳本)
這篇文章主要介紹了ass2srt.vbs一個(gè)ass/ssa批量轉(zhuǎn)換srt的腳本,需要的朋友可以參考下2014-09-09
純vbs實(shí)現(xiàn)zip壓縮與unzip解壓縮函數(shù)代碼
用VBS解壓ZIP文件，網(wǎng)上搜到的多數(shù)是調(diào)用WinRAR，一點(diǎn)技術(shù)含量也沒有。聽說可以用純vbs實(shí)現(xiàn)，特整理給大家，已經(jīng)過測(cè)試。喜歡的朋友可以測(cè)試下。2011-01-01
使用xcacls.vbs(cacls.exe)修改NTFS權(quán)限說明(中文版)
本分步指南介紹如何使用擴(kuò)展的更改訪問控制列表工具 (cacls.exe，對(duì)應(yīng)的腳本文件是xcacls.vbs) 修改和查看文件或文件夾的 NTFS 權(quán)限。2010-08-08
2008-02-02
從一個(gè)VBS腳本學(xué)習(xí)一點(diǎn)點(diǎn)東西
從一個(gè)VBS腳本學(xué)習(xí)一點(diǎn)點(diǎn)東西...2006-09-09![vbs 搜索代理地址實(shí)現(xiàn)代碼[小偷程序]](http://img.jbzj.com/images/xgimg/bcimg6.png)
vbs 搜索代理地址實(shí)現(xiàn)代碼[小偷程序]
將下面的代碼，直接保存為getproxy.vbs即可。2009-10-10
這篇文章主要介紹了vbs重啟TP-Link路由器示例,需要的朋友可以參考下2014-04-04
VBS教程：方法-Replace 方法...2006-11-11
HTA文件去除html控件認(rèn)證和接收命令行參數(shù)
最近看vbscript程序員參考手冊(cè)第三版，講到hta的兩個(gè)應(yīng)用2009-07-07