How would you create a directory using VB6?

[Drag0n]

How would you create a directory using VB6?

Please tell me.. I've been looking everywhere

[unnown]

call mkdir

(make dir :D)

[Drag0n]

thanks Unnown. Like this?
```
Call mkdir(\Random_Folder)

```

[Fulou]

I ripped this from my source, it has UNC support if required.

```
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Function DriveExist(ByVal Drive As String) As Boolean
'Example, C: , will remove the \ Automatically!
'On error, will return false
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
On Error GoTo ForceFalse
Dim FSO
Set FSO = CreateObject("Scripting.Filesystemobject")

    If FSO.DriveExists(Drive) = True Then
        DriveExist = True
    Else
        DriveExist = False
    End If
Set FSO = Nothing
Exit Function

ForceFalse:
DriveExist = False
Set FSO = Nothing

End Function

'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Function CreateFolder(ByVal Path As String) As Boolean
' Returns false if failed, True if ftw.
' Loops through and makes sure all parent folders exist too!
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Dim FSO
Dim Parse, currentpath As String
Dim PathLen, Currentlen, i As Long

Set FSO = CreateObject("Scripting.Filesystemobject")

PathLen = Len(Path)
Parse = Split(Path, "\")

If Mid(Path, 1, 2) = "\\" Then ' if its a UNC path!

    Currentlen = (Len(Parse(2)) + 3)
    currentpath = "\\" & Parse(2) & "\"

    i = 3

Else                            ' if its a local path!

    Currentlen = (Len(Parse(1)) + 1)
    currentpath = Parse(1) & "\"

    If DriveExist(Parse(0)) = False Then ' check to see if the drive exists
        GoTo Failed
    End If

    i = 1

End If

    Do
        currentpath = currentpath & Parse(i) & "\"

        If FolderExist(currentpath) = False Then
            FSO.CreateFolder (currentpath)
        End If

        Currentlen = Currentlen + Int(Len(Parse(i))) + 1
        i = i + 1

    Loop Until Currentlen >= PathLen

CreateFolder = True
Set FSO = Nothing
Exit Function

Failed:
CreateFolder = False
Set FSO = Nothing

End Function
```

[Drag0n]

That says "Ambiguous error"

[Fulou]

Interesting, did you put it in a module? What line does it error on, since it works fine for me :S

[Drag0n]

Wait- If I'm putting it in a button, I say
ButtonDirCreate_Click()
Should I put "Call Function CreateFolder" or something? I blanked.. -_-
End Sub

[Fulou]

```
If CreateFolder(App.path & "\Test folder\Another test folder") = True then
MsgBox "Created folder successfully!", VbInformation + VbOkOnly, "Info!"
Else
MsgBox "Failed to create the folder!", VbCritical + VbOkOnly, "Error!"
End if
```

[unnown]

really big thing for something that's already done really easy in the source..just look up mkdir in the source

[Fulou]

Damn Unnown, raining on my parade again ;)

[Drag0n]

Never mind. Found a list of commands.

[unnown]

lol sorry :P

[Drag0n]

Thanks everyone! I appreciate your help **a lot**..