-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 に答える