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