[VB6] 讀區資料夾中所有檔案名稱

Private Sub CommandButton1_Click()
ComboBox1.Clear
Dim s As String
  s = Dir("C:\*.*")
  Do Until s = ""
    ComboBox1.AddItem (s)
    s = Dir()
  Loop
End Sub