2013-03-16 105 views
0

我試圖獲取每個文件的文件名和完整路徑,下面的代碼段搜索「foo」文件夾中的所有文件夾並輸出ListBox中的文件名。分別獲取完整路徑和文件名

Dim di As New DirectoryInfo("C:\\foo") 
Dim diar As FileInfo() = di.GetFiles("*.*", SearchOption.AllDirectories) 
Dim dra As FileInfo 

For Each dra In diar 
    ListBox.Items.Add(dra) 
    ListBox1.Items.Add(would be full path here) 
Next 

但我也想輸出ListBox1每個文件的完整路徑,我該怎麼辦呢?

回答

2
ListBox1.Items.Add(dra.FullName) 

此外,您可以使用dra.Name作爲文件名。

+0

我討厭的答案就是這麼簡單笑謝謝Pietu,當我可以將標記爲答案。 – 2013-03-16 20:11:22

0

你也可以使用linq版本,如果你:)

Dim di As New DirectoryInfo("C:\\foo") 
ListBox1.Items.AddRange(
    di.GetFiles("*.*", SearchOption.AllDirectories) _ 
    .OfType(Of FileInfo).Select(Function(f) f.FullName).ToArray()) 
相關問題