新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    Call s_Dir(App.Path)
End Sub

Private Sub s_Dir(ByVal strDes$)
    Dim strFN$

    strFN = Dir(strDes & "\*.*")
    Do Until strFN = ""
        Debug.Print strFN
        strFN = Dir
    Loop
End Sub