有关VB代码的问题，会的来！！！

假设我用 dir 函数找文件或是文件夹，在找到该文件后用 print 打出该文件的目录。  求指点！

追问：你这个符合我的要求，但是vb会卡死掉
 

答案：
这段代码是搜索D盘的ICO文件并把路径打印到窗体给你参考下
Private Sub Command1_Click()
    ss "d:"
End Sub


Sub ss(d As String)
    Dim dd As String, ds() As String, i As Integer, s As Integer
    dd = Dir(d & "\", vbNormal + vbDirectory)
    Do Until dd = ""
        If dd <> "." And dd <> ".." Then
            If (GetAttr(d & "\" & dd) And vbDirectory) = vbDirectory Then
                s = s + 1
                ReDim Preserve ds(1 To s)
                ds(s) = d & "\" & dd
            Else
                If LCase(Right(dd, 4)) = ".ico" Then print d & "\" & dd
            End If
        End If
        dd = Dir
    Loop
    For i = 1 To s
        ss ds(i)
    Next
End Sub
GetAsyncKeyState(vbKeyHome)应该是放在timer里的哇？ 
这个函数就是查看当前Home键是否摁下，如若摁下的话，执行下面的代码。。。flag1啥的是自己的变量，偶们就猜不出来了…… 
这应该就是传说中的老板键了

上一个：VB实现自动单击鼠标左键的代码是什么?
下一个：VB的填空题帮忙答下,好心人~