Imports System.IO
Public Class Tester
Public Shared Sub Main
Dim arrDirs() As String
Dim strDir As String
Try
arrDirs = Directory.GetFiles("c:\\")
For Each strDir In arrDirs
Console.WriteLine(strDir)
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