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("*.sys")
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:\CONFIG.SYS
c:\hiberfil.sys
c:\IO.SYS
c:\MSDOS.SYS
c:\pagefile.sys