作者Qiu0 (有時會倔強過了頭...)
看板Visual_Basic
標題[VBS ] Run time..一直出現型態不符合
時間Wed Mar 28 18:43:43 2012
請教各位前輩
我想找出C:\book 裡頭的Folder 符合條件就刪掉
(條件是如果folder 名稱不是"user guide" 或 不包含 "quick" 就刪掉Folder)
但是一直出現錯誤訊息
GetFolderList.vbs(9, 2) Microsoft VBScript 執行階段錯誤: 型態不符合:
'[string: "c:\book\test\test"]'
請問我是什麼地方出錯了呢？. ? 謝謝
Option Explicit
Dim objFSO, objFolder, objSubFolders, objSubFolder, DeleteDirectory
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\book")
Set objSubFolders = objFolder.SubFolders
For each objSubFolder In objSubFolders
wscript.echo objSubFolder
if (StrComp(LCase(objSubFolder),"c:\book\user guide")<>0 or
Instr(LCase(objSubFolder),"quick",1)=0 ) then
if objFSO.Folder.Exists(objSubFolder) then
objFSO.DeleteFolder objSubFolder, True
End if
End if
Next
Set objFSO = Nothing
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.63.100.2
※ 編輯: Qiu0 來自: 210.63.100.2 (03/28 18:45)
※ 編輯: Qiu0 來自: 210.63.100.2 (03/28 18:54)
1F：→ MOONRAKER:ObjSubFolder型態是什麼？你確定他就是一個字串？ 03/28 19:12
2F：→ Qiu0:Yes 用VarType() 回傳值8=》 VbString 03/28 21:45
3F：推 fumizuki:SubFolder 應該是個 Folder 型態... 03/28 22:22
4F：推 fumizuki:objSubFolder.Path 才會得到路徑 03/28 22:23
6F：→ Qiu0:？？ wscript.echo objSubFolder 這樣Echo出來的確是路徑啊 03/28 22:37
7F：→ Qiu0:其實objSubFolder.Path objSubFolder.Name我都試過~ 03/28 22:40
8F：→ Qiu0:都會有一樣的錯誤訊息 @@ 03/28 22:40
9F：→ Qiu0:oh oh 找到了 把Instr的第三個參數 "1" 拿掉就過了 @@ 03/28 22:47
10F：→ MOONRAKER:什麼…原來是這樣的嗎… 03/29 02:15