VB.Net by API/System.IO/Directory

Directory.CreateDirectory

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Console.WriteLine("Creating directories...")
       Directory.CreateDirectory("D:\test01")
       Directory.CreateDirectory("D:\Temp\Sample02")
       Directory.CreateDirectory("Sample03")
       Console.WriteLine("Directories created")
   End Sub

End Module

 </source>

Directory.Delete

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Try
           Directory.Delete("C:\Sample01", True)
       Catch E As Exception
           Console.WriteLine("Error deleting directory C:\Sample01")
           Console.WriteLine("Error {0}", E.Message)
       End Try
   End Sub

End Module

 </source>

Directory.Exists

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Try
           If (Directory.Exists("D:\test01")) Then
               Console.WriteLine("D:\test01 already exists")
           Else
               Directory.CreateDirectory("C:\test01")
           End If
           Console.WriteLine("Directories created")
       Catch E As Exception
           Console.WriteLine("Error creating directory")
           Console.WriteLine("Error: {0}", E.Message)
       End Try
   End Sub

End Module

 </source>

Directory.GetCurrentDirectory()

<source lang="vbnet">

Imports System.IO Module Module1

   Sub Main()
       Dim Current As String
       Dim Parent As DirectoryInfo
       Try
           Current = Directory.GetCurrentDirectory()
           Parent = Directory.GetParent(Current)
           Console.WriteLine("Current directory {0}", Current)
           Console.WriteLine("Parent directory {0}", Parent.FullName)
       Catch E As Exception
           Console.WriteLine("Error determining parent directory")
           Console.WriteLine(E.Message)
       End Try
   End Sub

End Module

 </source>

Directory.GetDirectoryRoot

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

   Public Shared Sub Main
   
   
       Console.WriteLine(Directory.GetDirectoryRoot("c:\\Java_Dev"))
   End Sub

End Class

 </source>

Directory.GetFileSystemEntries

<source lang="vbnet">

Imports System.IO public class Test

  public Shared Sub Main
       Dim aryItems() As String
       Dim strPath As String = "C:\Program Files"
       Dim strItem As String
       aryItems = Directory.GetFileSystemEntries(strPath)
       For Each strItem In aryItems
           If Directory.Exists(strItem) Then
               Console.WriteLine("FOLDER " & strItem)
           Else
               Console.WriteLine("FILE " & strItem)
           End If
       Next strItem
  End Sub

End class

 </source>

Directory.GetLogicalDrives()

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Dim DriveList As String() = Directory.GetLogicalDrives()
       Dim Drive As String
       Console.WriteLine("Logical Drives")
       For Each Drive In DriveList
           Console.WriteLine(Drive)
       Next
   End Sub

End Module

 </source>

Directory.GetParent

<source lang="vbnet">

Imports System.IO Module Module1

   Sub Main()
       Dim Current As String
       Dim Parent As DirectoryInfo
       Try
           Current = Directory.GetCurrentDirectory()
           Parent = Directory.GetParent(Current)
           Console.WriteLine("Current directory {0}", Current)
           Console.WriteLine("Parent directory {0}", Parent.FullName)
       Catch E As Exception
           Console.WriteLine("Error determining parent directory")
           Console.WriteLine(E.Message)
       End Try
   End Sub

End Module

 </source>

Directory.Move

<source lang="vbnet">

Imports System.IO Public Class Tester

   Public Shared Sub Main
   
           Directory.Move("c:\\b", "c:\\a")
           
   End Sub

End Class

 </source>

Directory.SetCurrentDirectory

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Console.WriteLine("Current directory is {0}", Directory.GetCurrentDirectory())
       Directory.SetCurrentDirectory("C:\")
       Console.WriteLine("Current directory is {0}", Directory.GetCurrentDirectory())
   End Sub

End Module

 </source>