Как я создаю папку в VB, если он не существует?

Под Системой. IO, существует класс под названием Каталог. Сделайте следующее:

If Not Directory.Exists(path) Then
    Directory.CreateDirectory(path)
End If

Это гарантирует, что каталог там.

Так как вопрос не определил.NET, это должно работать в VBScript или VB6.

Dim objFSO, strFolder
strFolder = "C:\Temp"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If Not objFSO.FolderExists(strFolder) Then
   objFSO.CreateFolder(strFolder)
End If

Попробуйте Система. Класс IO.DirectoryInfo .

образец из MSDN:

Imports System
Imports System.IO

Public Class Test
    Public Shared Sub Main()
        ' Specify the directories you want to manipulate.
        Dim di As DirectoryInfo = New DirectoryInfo("c:\MyDir")
        Try
            ' Determine whether the directory exists.
            If di.Exists Then
                ' Indicate that it already exists.
                Console.WriteLine("That path exists already.")
                Return
            End If

            ' Try to create the directory.
            di.Create()
            Console.WriteLine("The directory was created successfully.")

            ' Delete the directory.
            di.Delete()
            Console.WriteLine("The directory was deleted successfully.")

        Catch e As Exception
            Console.WriteLine("The process failed: {0}", e.ToString())
        End Try
    End Sub
End Class

VB.NET? Система. IO.Directory. Существует (строковый путь)

Попробуйте это: Directory.Exists(TheFolderName) и Directory.CreateDirectory(TheFolderName)

(Вам, возможно, понадобится: Imports System.IO)

Каталог. CreateDirectory () должен сделать это. http://msdn.microsoft.com/en-us/library/system.io.directory.createdirectory (По сравнению с 71) .aspx

кроме того, в Vista, Вы, вероятно, не можете записать в C: непосредственно, если Вы не выполняете его как администратор, таким образом, Вы могли бы просто хотеть обойти это, и создать dir Вы хотите в подdir C: (который я сказал бы, хорошая практика, которая будет сопровождаться так или иначе. - его невероятное, сколько людей просто выводит дерьмо на C:

Hope, которая помогает.

(Система импорта. IO)

if Not Directory.Exists(Path) then
  Directory.CreateDirectory(Path)
end if

Необходимо попытаться использовать Объект Файловой системы или FSO. Существует много методов, принадлежащих этому объекту, которые проверяют, существуют ли папки, а также создание новых папок.

Я вижу, как это работало бы, что будет процессом для создания диалогового окна, которое позволяет имени пользователя папку, и поместите его, где Вы хотите.

Удачи

If Not Directory.Exists(somePath) then
    Directory.CreateDirectory(somePath)
End If