VB.Net Tutorial/Stream File/DirectoryInfo

Create DirectoryInfo and get its parent and root

<source lang="vbnet">Imports System.IO Public Class Tester

   Public Shared Sub Main

       Dim myDirectoryInfo As DirectoryInfo
       myDirectoryInfo = New DirectoryInfo("c:\\Java_dev")
       Console.WriteLine(myDirectoryInfo.Exists)
       
       Console.WriteLine(myDirectoryInfo.Name)
       Console.WriteLine(myDirectoryInfo.Parent.ToString)
       Console.WriteLine(myDirectoryInfo.Root.ToString)
   End Sub

End Class</source>

True
Java_dev
c:\

DirectoryInfo: create directory and sub directory

<source lang="vbnet">Imports System.IO Public Class Tester

   Public Shared Sub Main
   
       Dim DirInfo As System.IO.DirectoryInfo
       DirInfo = System.IO.Directory.CreateDirectory("c:\a")
       DirInfo.CreateSubdirectory("a")
   
   End Sub

End Class</source>

Get all directories under current directory

<source lang="vbnet">Imports System.IO Public Class Tester

   Public Shared Sub Main
       Dim myDirectoryInfo As DirectoryInfo
       myDirectoryInfo = New DirectoryInfo("c:\\Java_dev")

       Dim myDirectoryInfos() As DirectoryInfo
       Dim myDir As DirectoryInfo
       Try
           myDirectoryInfos = myDirectoryInfo.GetDirectories()
           For Each myDir In myDirectoryInfos
               Console.WriteLine(myDir.FullName)
           Next
       Catch ex As Exception
           Console.WriteLine(ex.Message)
       End Try
   End Sub

End Class</source>

c:\Java_dev\backup
c:\Java_dev\sdk
c:\Java_dev\support
c:\Java_dev\WEB

Get all files under a directory and output file name

<source lang="vbnet">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</source>

c:\AUTOEXEC.BAT
c:\boot.ini
c:\CONFIG.SYS
c:\DebugMessages.txt
c:\hiberfil.sys
c:\IO.SYS
c:\MSDOS.SYS
c:\NTDETECT.ru
c:\ntldr
c:\pagefile.sys
c:\test.txt
c:\test1.txt

Get directories under current directory with condition

<source lang="vbnet">Imports System.IO Public Class Tester

   Public Shared Sub Main
       Dim myDirectoryInfo As DirectoryInfo
       myDirectoryInfo = New DirectoryInfo("c:\\")

       Dim myDirectoryInfos() As DirectoryInfo
       Dim myDir As DirectoryInfo
       Try
           myDirectoryInfos = myDirectoryInfo.GetDirectories("wind*")
           For Each myDir In myDirectoryInfos
               Console.WriteLine(myDir.FullName)
           Next
       Catch ex As Exception
           Console.WriteLine(ex.Message)
       End Try
   End Sub

End Class</source>

c:\WINDOWS

Get files under a directory with condition

<source lang="vbnet">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</source>

c:\CONFIG.SYS
c:\hiberfil.sys
c:\IO.SYS
c:\MSDOS.SYS
c:\pagefile.sys