请问，怎样得到指定目录下的文件名、文件夹名？

Question

请问，怎样得到指定目录下的文件名、文件夹名？

Answer 1

用Dir获得当前目录下文件名和数目
sFileName=Dir(路径名,31)
Do While Dir(CurrenPath,31)<> ""
If sFileName <> "." And sFileName <> ".." Then
If GetAttr(sPath & sFileName) And vbDirectory Then '如果是目录和文件夹
newPath = sPath & sFileName
RecurseTree newPath
sFileName = Dir(sPath, 31)
Else
SetAttr sPath & sFileName, vbNormal
...数组部分
sFileName = Dir
End If
Else
sFileName = Dir
End If
DoEvents
Loop

Answer 2

'----------------------------------------------------------------------------
'
'Author:lihonggen0
'Date:2003-6-20
'功能：列出一个目录下的所有文件的文件名,文件夹名
'----------------------------------------------------------------------------Private Function AutoListFiles(ByVal sDirName As String, ByVal FileFilter As String) As Boolean    On Error GoTo RF_ERROR
    Dim sName As String, sFile As String, sExt As String
    Dim sDirList() As String, iDirNum As Integer, I As Integer
    
    '首先枚举所有文件
    sFile = Dir(sDirName + FileFilter, vbNormal + vbArchive + vbHidden + vbDirectory)
    I = 1
    Do While Len(sFile) > 0
        sFile = UCase(Trim(sFile))
        Debug.Print sFile
        I = I + 1
        sFile = Dir '下一个文件
    Loop
RF_EXIT:
    AutoListFiles = True
    Set xlApp = Nothing
    Exit Function
RF_ERROR:
    MsgBox Err.Description, vbCritical, ""
    Resume RF_EXIT
End Function
Private Sub Command1_Click()
Dim bln   As Boolean
'将F:\盘根目录下的所有文件和目录列出来
bln = AutoListFiles("f:\", "*.*")
End Sub