我在哪里？

Question

呵呵，恐怕没有简单的方法，不过你可以按照下列步骤去实验：
1. 找到所有的驱动器（可以用DriveListBox控件）
2. 便历所有的路径（可以用DirListBox控件）
3. 用Dir函数。
具体怎么用，看看帮助啦！

Answer 1

活用DIR加上API，如果你不想用DRIVE控件的话，可以找到，不过麻烦！

Answer 2

   这么简单的问题，用file object system很容易解决

Answer 3

turbo，我不知道你仔细看file object system的用法没有？这是我首先想到的，但是是不行的！如果你知道，并且还很简单的话，那请你在这儿写几句话！谢谢！我不会忘给你加分的！

Answer 4

看了dennis的回复，昨晚回家想了想。恩，是可以的，但是比较麻烦，好象要用到树的层次遍历！算法倒是简单，就是要写比较多程序（如果有需要的，可以找我发给他）--本人很懒，想有现成的东西。不知道有没有更简单的方法，比方有没有比较现成的函数可供调用。本问题继续征集解答！
在此，对dennis表示谢意--谢谢，Thx!
还有就是不知道h_x_k的方法是怎么样的，请指教！

Answer 5

 
　　在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 Sub2.插入一模块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 Function3.保存文件，按F5运行，单击命令按钮即可。  

Answer 6

好像上面的是《visual basic从入门到精通》的原文，对不对？