16,721
社区成员




Dim dir As New System.IO.DirectoryInfo("d:\data")
Dim f As System.IO.FileInfo
For Each f In dir.GetFiles
Dim file = System.IO.Path.GetFileNameWithoutExtension(f.Name)
ListBox1.Items.Add(file)
Next