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