VB Warehouse: 顯示資料夾下的所有檔案

2012年11月17日星期六

當你要程式搜尋電腦中某個資料夾下的檔案時
要用啥程式碼呢？
方法有很多種，今天就先教其中一種吧！

當我有一個資料夾：「Download」，位置在 "C:\" 下
而我要他顯現出 Download 的所有檔案，並顯現到 ListBox1 中
就可以寫成以下程式碼～

～程式碼 VB～

Dim s As String
s = Dir( "C:\Download\*.*" , vbNormal)
  Do Until s = ""
       ListBox1.Items.Add(s)
       s = Dir()
   Loop

～VB 應用～

如果你想要顯現出 Download 下的所有 *.mp3 檔

就可以把程式碼改成「Dir( "C:\Download\*.mp3*" , vbNormal)」

很簡單吧！

當然，不想要顯現到 ListBox 中也可以改程式碼為：

Do Until s = ""
     TextBox1.Text & TextBox1.Text & s
      s = Dir()
Loop

VB Warehouse