Imports System.IO
Public Class Tester
Public Shared Sub Main
Dim myDirectoryInfo As DirectoryInfo
myDirectoryInfo = New DirectoryInfo("c:\\")
Dim filesInfo() As FileInfo
Dim fileInfo As FileInfo
Try
filesInfo = myDirectoryInfo.GetFiles()
For Each fileInfo In filesInfo
Console.WriteLine(fileInfo.FullName)
Next
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
End Class
c:\AUTOEXEC.BAT
c:\boot.ini
c:\CONFIG.SYS
c:\DebugMessages.txt
c:\hiberfil.sys
c:\IO.SYS
c:\MSDOS.SYS
c:\NTDETECT.COM
c:\ntldr
c:\pagefile.sys
c:\test.txt
c:\test1.txt