-1

我正在尝试获取每个文件的文件名和完整路径,下面的代码段搜索“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我该怎么做呢?

4

2 回答 2

2
ListBox1.Items.Add(dra.FullName)

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

于 2013-03-16T20:07:45.483 回答
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())
于 2013-03-16T20:19:54.513 回答