作者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