为什么在递归返回的时候出错呢?
蘑菇 2003-05-12 09:29:14 源码如下:
Public Function finddir(dirname As String)
Dim dirname1 As String
MyName = Dir(dirname, vbDirectory) ' 找寻第一项。
Do While MyName <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If MyName <> "." And MyName <> ".." Then
' 使用位比较来确定 MyName 代表一目录。
If (GetAttr(dirname & MyName) And vbDirectory) = vbDirectory Then
dirname1 = dirname & MyName & "\"
chdir dirname1
Form1.Print dirname1
finddir (dirname1)
End If
End If
MyName = Dir ' 查找下一个目录。!!!出错就在这一句上,在从目录的底部往回返的时候出错的。
Loop
End Function
Private Sub Form_Load()
finddir ("C:\1\")
End Sub
目录为:c:\1\aa\cc\dd.