Mk Dir Command to create a folder with ID values from record and subfolders

[kimbabcock]

I am trying to make a directory for my proposal database

I am trying to associate the code with a command buttom that opens a form to add a new record.

This is what I am trying to accomplish but since I am new at vba I need some help.

I would like when you add a new record to make a new folder with the mkdir command that includes the Proposal ID and Proposal Name.

This is the code I have so far.

If Len(Dir("z:HCHINC\PROPOSALS\Proposalprojects\TEST, ")) = 0 Then
MkDir "Z:HCHINC\PROPOSALS\Proposalprojects\TEST,"

I need to know how to make it have the Proposal ID and then the Proposal name instead of TEST? I also was wondering if someone can direct me in the right direction as to putting some stardard folders inside the directory folder like Drawings, Quotes, Correspondence etc.

[Rabbit]

Use the append operator (&) to append strings together. In this case, use it to append your proposal name to the string.

MkDir "Z:HCHINC\PROPOSALS\Proposalprojects\" & ProposalName

The standard folders can be created the same way you're creating the main folder.

[jforbes]

I use this to make sure a folder exists before dropping files into it. It will create the folder if need be and it's recursive so it will create the entire tree if necessary:

Function establishFolder(ByRef sPath As String) As Boolean
On Error GoTo ErrorOut
    Dim sParentFolder As String
    establishFolder = False
 
    If Not folderExists(sPath) Then
        sParentFolder = Left(sPath, InStrRev(Left(sPath, Len(sPath) - 1), "\") - 1)
        If Not folderExists(sParentFolder) Then
            If InStr(sParentFolder, "\") Then
                Call establishFolder(sParentFolder)
            End If
        End If
        If folderExists(sParentFolder) Then
            MkDir sPath
            establishFolder = True
        Else
            establishFolder = False
        End If
    Else
        establishFolder = True
    End If
ExitOut:
    Exit Function
ErrorOut:
    MsgBox Err.Description
    Resume ExitOut
End Function
 
Function folderExists(strPath As String) As Boolean
    On Error Resume Next
    folderExists = ((GetAttr(strPath) And vbDirectory) = vbDirectory)
End Function
 

It can be used like this:

    If establishFolder("C:\bytes\temp\folder\" & sProposalName) Then
        MsgBox "Folder Exits."
    Else
        MsgBox "Couldn't create the Folder."
    End If
 

[kimbabcock]

I need it to create the proposal ID & Proposal name which are pulled from the field in the table? it doesn't seem to be working with the reply to the first answer.

[Rabbit]

Please show us the code you tried and tell us how you called the code.