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