'Este trecho de código mostra como criar diretórios
'usando o método My.Computer.FileSystem.CreateDirectory

Module Module1
  Sub Main()
    Dim dir As String = "estudos"

    'cria o diretório no diretório atual
    Try
      My.Computer.FileSystem.CreateDirectory(dir)
      Console.WriteLine("Diretório criado com sucesso")
    Catch e As Exception
      Console.WriteLine("Não foi possível criar o diretório")
    End Try

    'define o local de criação diretório
    Try
      My.Computer.FileSystem.CreateDirectory("c:\estudos_vb\" _
        & dir)
      Console.WriteLine("Diretório criado com sucesso")
    Catch e As Exception
      Console.WriteLine("Não foi possível criar o diretório")
    End Try

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module