Imports System.IO
Public Class Tester
Public Shared Sub Main
Dim arrDirs() As String
Dim strDir As String
Try
arrDirs = Directory.GetFiles("c:\\","*.sys")
For Each strDir In arrDirs
Console.WriteLine(strDir)
Next
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
End Class
c:\\CONFIG.SYS
c:\\hiberfil.sys
c:\\IO.SYS
c:\\MSDOS.SYS
c:\\pagefile.sys