在不知道文件存放路径的情况下怎么读取文件

Question

可以循环你的硬盘分区：
把.exe改为.txt!!用VB实现文件查找功能 在VB中要实现查找文件功能，我们可以利用VB的DIR函数进行递归来实现。每次 
使用DIR函数后，比较是否有要查找的文件，再检查是否有子目录，若有，利用递 
归继续查找，这样可对整个盘进行查找。 
　　下面是一个例子，查找DOS目录下的所有EXE文件，统计EXE文件的数目并列出 
文件名。本程序会查找当前路径下的所有文件和子目录，与WIN95的“包含子文件夹” 
的查找功能类似。 
程序与注释如下： 1.在窗体中加一命令按钮Command1,Caption=查找示例，双击此按钮，写如下代码： 
Private Sub Command1－Click() 
Dim ff() As String′定义一个字符串数组用来保存找到的文件名称 
Dim fn As Long′保存找到的文件数目 
fn=TreeSearch(″C:％％dos″，″＊.exe″，ff()) 
Print″找到文件数目为″；fn 
For i=1 To fn 
Print ff(i) 
Next 
End Sub 2.插入一模块Modulel.bas，写如下代码： 
Option Explicit 
Public Function TreeSearch(ByVal sPath As String,ByVal sFileSpec As 
String,sFiles() As String) 
As Long 
Static 1Files As Long′文件数目 
Dim sDir 　 As String 
Dim sSubDirs() As String′存放子目录名称 
Dim 1Index As Long 
If Right(sPath,1)<>″％％″Then sPath=sPath＆″％％″ 
sDir=Dir(sPath ＆ sFileSpec) 
′获得当前目录下文件名和数目 
Do While Len(sDir) 
1Files=1Files＋1 
ReDim Preserve sFiles(1 To 1Files) 
sFiles(1Files)=sPath＆sDir 
sDir=Dir 
Loop 
′获得当前目录下的子目录名称 
1Index=0 
sDir=Dir(sPath＆″＊.＊″,16) 
Do While Len(sDir) 
If Left(sDir,1)<>″.″Then ′skip.and.. 
′找出子目录名 
If GetAttr(sPath ＆ sDir)And vbDirectory Then 
1Index=lIndex ＋1 
′保存子目录名 
Redim Preserve sSubDirs(1 To 1Index) 
sSubDirs(1Index)=sPath ＆ sDir ＆″％％″ 
End If 
End If 
sDir=dir 
Loop 
For 1Index=1 To 1Index 
′查找每一个子目录下文件，这里利用了递归 
Call TreeSearch(sSubDirs(1Index),sFileSpec,sFiles()) 
Next 1Index 
TreeSearch=1Files 
End Function 3.保存文件，按F5运行，单击命令按钮即可。 

Answer 1

Declare Function SearchPath Lib "kernel32" Alias "SearchPathA" (ByVal lpPath As String, ByVal lpFileName As String, ByVal lpExtension As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long说明：查找指定文件返回值：Long，装载到lpBuffer缓冲区的字符数。如缓冲区长度不足，则返回缓冲区必要的长度。零表示失败。会设置GetLastError参数：
  lpPath ---------  String，欲搜索的路径。如果为vbNullString，则采用windows搜索路径。参考OpenFile函数的OFSTRUCT结构中对OF_SEARCH标志搜索顺序的介绍  lpFileName -----  String，要查找的文件名  lpExtension ----  String，文件扩展名。必须用一个句点符号起头。如文件没有扩展名，或者lpFileName包括了扩展名，则设为vbNullString  nBufferLength --  Long，lpBuffer字串的长度  lpBuffer -------  String，用于装载文件名的一个字串  lpFilePart -----  String，指定一个长整数变量，用于装载缓冲文件名部分的地址。在vb中不是特别有用参考GetFullPathName函数