含子目录的搜寻档案

1、含子目录的搜寻档案 标题：非递回、无使用界面的档案搜寻一般来说，搜寻目录及子目录底下符合条件之所有档案功能的程式撰写，一向颇令人头疼，而最後的解决方式多用recursive(程式递回呼叫)来解决，像所附的范例，就是filelistbox和recursive程序的兼用，来解决这个问题。本范例则用另一种思考模式切入，在不使用任何ocx及recursive程序下利用两个非固定阵列变数及双层do.loop回圈解决这问题。本范例代表的含意是你把这段code搬到无使用者可视界面的module及class里，一样可以执行(程式里的listbox及msgbox只是为了解说方便而已，实际的资料已放入filepa

2、ckage这个动态阵列里，可以index取用。)当然你不能拿windows95提供的寻找功能的搜寻速度来要求本范例，因为那根本是两种不同的驱动方式，但我用c:为搜寻启始目录，以*.*为条件来与的范例程式相比，是2分钟，我是分钟。更值得一提的是，其实整个搜寻动作在55秒时已全部完成，剩下的时间都是用来显示listbox资料。所以如果你的程式并不需要立即的显示查询结果，那麽本范例将比更适合你使用。最後如果你觉得本程式有任何错误或有改进的意见，请写信给站长，站长会转信给我，在此先谢谢你了。needalistbox,commandboxoptionexplicit宣告搜寻到的档案的储存阵列变数priv

3、atefilepackage()asstringprivatesubcommand1_click()宣告存放目录名称储存阵列变数dimdirpackage()asstring存放档案搜寻条件之字串dimsearchstringasstring接收dir()传回字串，并做为回圈判断的字串dimdirstringasstringi目前搜寻目录的指位器，j是dirpackage目录阵列之上限指标k是filepackage之档案阵列之上限指标dimiaslong,jaslong,kaslong把listbox的旧显示资料清掉把filepackage的上一次搜寻资料清掉erasefilepackage假

4、设我们的搜寻从c碟根目录开始redimdirpackage(0)路径结尾一定要加dirpackage(0)=c:假设我们的搜寻字串是*.exesearchstring=*.exe显示沙漏指标=11-以下搜寻c碟里所有的目录-直到目录指位器i超过目录上限指标j才结束搜寻dowhilei<=j搜寻目录指位器i所指的目录dirstring=dir(dirpackage(i),vbhiddenorvbdirectoryorvbreadonlyorvbsystem)直到目前目录找不到任何目录或档案才结束dowhiledirstring<>不要把上层目录和现目录的指标符号算进去ifdir

5、string<>.anddirstring<>.then如果找到的是个目录if(getattr(dirpackage(i)&dirstring)andvbdirectory)_=vbdirectorythen把目录上限加1j=j+1把储存目录名称的阵列加一个redimpreservedirpackage(j)把查到的新目录放在dirpackage新元素里dirpackage(j)=dirpackage(i)+dirstring+如果找到的是个档案else如果与搜寻字串相符合ifucase(dirstring)likeucase(searchstring)then

6、把储存档案名称的阵列加一个redimpreservefilepackage(k)把查到的新档案放在filepackage新元素里filepackage(k)=dirpackage(i)+dirstring把档案上限加1k=k+1endifendifendif继续找是否有符合的资料，并把结果放dirstring里dirstring=dirdoeventsloop把现目录指标往下移一个i=i+1loop-以下将结果输出到列示盒里-以下为找到档案之总计-还原滑鼠指标=0ifk=0thenmsgbox没有&searchstring&的档案else以下将结果输出到列示盒里fori=0to

7、ubound(filepackage)(i)doeventsnextmsgbox总共找到&ubound(filepackage)+1&个档案endifendsub以下有recursive作法，本人测试发现recursive的作法略快一些，原因可能出在redimpreservedirpackage与redimpreservesdirectorylist上，前者一直动态新增目录字串(如果c:之下含目录下的子目录一共100个，那这个阵列便会有100的大小)，而後者recursive的作法则不同，它动态目录的最大值则是含有最大子目录数的那个目录中，子目录之数目(如：c:windows中

8、含最多子目录，其子目录有30个，且这30个是不含子目录下的子目录，则动态字串阵列的最大个数便只有30)needacommandboxprivatefoundfile()asstring存放传回值的字串阵列privatentxaslongprivatesubcommand1_click()ntx=0callgetdirpath(c:,*.ini)endsubprivatesubgetdirpath(currentpathasstring,byvalsearfileasstring)dimniasinteger,ndirectoryasinteger,iaslongdimsfilenameasst

9、ring,sdirectorylist()asstringfirstlistallnormalfilesinthisdirectorysfilename=dir(currentpath,vbhiddenorvbdirectoryorvbreadonlyorvbsystem)dowhilesfilename<>ifucase(sfilename)likeucase(searfile)theni=getattr(currentpath+sfilename)if(iandvbdirectory)=0thenredimpreservefoundfile(ntx)foundfile(ntx)=currentpath+sfilenamentx=ntx+1endifendififsfilename<>.andsfilename<>.thenignorenondirectoriesifgetattr(currentpath&sfilename)_andvbdirectorythenndirectory=ndirectory+1redimpreservesdirectorylist(ndirectory)sdirectorylist(ndirect