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