發信人:Keri(呵呵2000),信區:
標題:查找指定類型文件(如.EXE)的例程
發信站:北大未名(:40:),轉信
發信人:erain(紅花會主),信區:
標題:查找指定類型文件(如.EXE)的例程
發信站:BBS水木清華站(:53:)WWW-POST
如何用VB5.0編制一個在指定盤內所有子目錄為查找指定類型文件(如.EXE)的例程,查找
結果可灌入一GRID中
下面是一個列出指定目錄下所有符合要求的文件名的函數：
(g,
)
,,
(),,
'首先枚舉所有文件
sFile=Dir(+,++)
(sFile)>0
sFile=UCase(Trim(sFile))
'在此處可以將sFile加入到一個Text控件…
sFile=Dir'下一個文件
Loop
'準備輪循子目錄
=0
sName=Dir(+"*.*",+)
(sName)>0
"."".."Then
=+1
t()
()=+sName+"\"
EndIf
sName=Dir'下一個目錄
Loop
Fori=
t(i)'遞歸調用
Next
EndIf
:
=True
:
.,,""
調用上述函數的示例：
("C:\","*.TMP")
之所以采用上述先處理文件文件搜索 c 指定類型，再處理子目錄，一是思路較清晰，另外也有模仿語
言中的"尾遞歸"的想法，當然，VB中是不支持尾遞歸的。
--
巧者勞而智者憂,無能者無所求,飽食而遨游，泛若不系之舟。
請稍候,正在返璞歸真中......
|||||||||||20%|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
--
每一刻都存在文件搜索 c 指定類型，不一樣的精彩
※來源:．虎踞龍盤東南站．[FROM:202.119.29.43]
完
--
