关于搜索文件的问题[求助]


小弟用下面的语句访问一个指定文件夹内的所有文件，发现有个问题就是一旦
对c盘驱动器查找时就会出现实时错误‘70’拒权限的错误（c:为ntfs,其它盘则没有这样的问题），  因为使用递归调用，很容易就出现内存溢出的问题，不知哪位高手能帮帮忙，先谢谢了!Private Sub Command1_Click()
    star_search (Dir1.List(Dir1.ListIndex))
End SubPrivate Function star_search(f_path As String)
'创建文件fso对象
Set fso = CreateObject("Scripting.FileSystemObject")
'取得初始文件夹名，创建fldr为文件夹对象
Set fldr = fso.GetFolder(f_path)
Call show_all_files(fldr)
End FunctionPrivate Function show_files(ini_fldr)
Dim fl_1 As File
Set files_t1 = ini_fldr.Files
For Each files_t2 In files_t1
    Set fl_1 = fso.GetFile(files_t2)
    debug.print files_t2 &  fl_1.size
Next
End FunctionPrivate Function show_all_files(folder_t1)
  Set folder_t2 = folder_t1.SubFolders
  Call show_files(folder_t1)
For Each folder_t3 In folder_t2  
    Set sub_fldr = fso.GetFolder(folder_t3)
    Call show_all_files(sub_fldr)
Next
End Function