Dim di As New IO.DirectoryInfo("d:\")
Dim diar1 As IO.FileInfo() = di.GetFiles()
Dim dra As IO.FileInfo
For Each dra In diar1
MsgBox(dra.Name)
Next