VB如何列出某個資料夾內所有的檔案

Question

我是一個VB新手
請問VB有內建可以列出某個資料夾內資料的指令嗎?
還是有什麼方法或API可以做到那樣的效果
可否幫我寫一個簡單的讀取\"資料檔名\"的程式
感謝囉

Answer 1

'表單置1個CommandButton跟1個ListBoxPrivate Sub Command1_Click() '列舉出C:\底下之檔案及資料夾        FileList "C:\"End SubSub FileList(ByVal nPath As String) '列舉檔案及資料夾副程式        Dim fS As Object, Fd As Object, sFd As Object, F As Object                '設fS為FileSystemObject物件        Set fS = CreateObject("Scripting.FileSystemObject")                '檢查路徑是否正確        If fS.FolderExists(nPath) = False Then           MsgBox nPath & "不存在,請先檢查路徑是否正確!"           Exit Sub        End If                '設Fd為此資料夾(nPath)        Set Fd = fS.GetFolder(nPath)                '先列舉出Fd底下之資料夾,加到List1        For Each sFd In Fd.SubFolders            List1.AddItem "【資料夾】" & sFd.Name        Next        '列舉出Fd底下之檔案,加到List1        For Each F In Fd.Files            List1.AddItem "【檔案】" & F.Name        NextEnd Sub'其實您也可用DriveListBox跟DirListBox及FileListBox來做XD!!