VB.NET
*  

     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