Create A Folder With Textbox Value

[Eranka]

Hi Guys

Dim strDir As String    strDir = "D:\Timesheets " & Me.Text11
    
    If Dir(strDir, vbDirectory) = "" Then
        MkDir strDir
    Else
        MsgBox "Directory exists."
    End If

Above is the code im using to create a folder in access, however i want to create a folder based on a textbox input value. (Me.Text11), above is not working. appreciate your help.

[isladogs]

So if Text11= abc, are you expecting to get D:\Timesheets abc or D:\Timesheets\abc

[Eranka]

HI Ridders

if text11=abc

im expecting the out put as D:\Timesheets - abc\

[June7]

What does 'not working' mean - error message, wrong result, nothing happens?

The concatenated string is missing hyphen and following space.

[isladogs]

There's nothing wrong with the code apart from the missing '- ' which June mentioned
This works for me on a button click event

Private Sub cmdMakeFolder_Click()

    Dim strDir As String
    strDir = "D:\Timesheets - " & Me.Text11
    
    If Dir(strDir, vbDirectory) = "" Then
        MkDir strDir
    Else
        MsgBox "Directory exists."
    End If
End Sub

[Eranka]

Hi

when i run the above code, i get run time error 76. path not found.

[Micron]

It could be that
a) the drive doesn't exist or isn't mapped
b) the control contains characters or words that are not allowed in folder/file names
c) the event you're using is not appropriate for this (you don't reveal what event it is)
If you are sure the drive letter is available on the pc that generates the error, it might help if you provide an example of what's in the control when that error is raised.

[June7]

I ran code testing for condition a. Don't get error, just empty string.

[ArviLaanemets]

Debug the code!

Open the OnClick event of button;
After row where variables are declared (Dim ...), add On Error statement to avoid the event code to be stopped when an error occurs;
Set breakpoint on

    strDir = "D:\Timesheets - " & Me.Text11

Run the event;
The event code is stopped and opened. Activate Watch window at bottom of debug window, when it is missing;
Select "strDir" from code and right-click on it to add variable to Watch window. Or type varieble/expression directly into Watch window. Press F8 - the active row is executed, the code stops at next row, and the value the variable strDir got is displayed in Watch window;
Repeat this with other rows, adding variables/expressions into Watch window [Dir(strDir, vbDirectory)] to check what the code actually does until you get the error message;
Based on values returned in Watch window, you can locate the problem which causes the error.

(Without On Error statement, when the error occurs, the execution of code is stopped, and all watches you set are not defined anymore. So you can't chek them anymore. Of-course you can always write them down when debuging.)

[isladogs]

I just tried micron's suggested conditions a & b
a) Non existent drive
b) illegal characters such as ? and / in the textbox
In each case, I got error 76 - path not found

I didn't bother testing condtion c

As Arvil has already suggested, add error checking / handling to your code
The following may be helpful:

Private Sub Command2_Click()

On Error GoTo Err_Handler


    Dim strDir As String
    strDir = "D\Timesheets - " & Me.Text11
    
    If Dir(strDir, vbDirectory) = "" Then
        MkDir strDir
    Else
        MsgBox "Directory exists."
    End If
    
Exit_Handler:
    Exit Sub


Err_Handler:
    If Err = 76 Then
        MsgBox "A directory cannot be created at :" & vbCrLf & " - " & strDir
    Else
        MsgBox "Error " & Err.Number & " in Command2_Click procedure : " & Err.Description
    End If
    Resume Exit_Handler


End Sub

[Eranka]

Hi Guys

Private Sub cmdMakeFolder_Click()

    Dim strDir As String
    strDir = "D:\Timesheets - " & Me.Text11
    
    If Dir(strDir, vbDirectory) = "" Then
        MkDir strDir
    Else
        MsgBox "Directory exists."
    End If
End Sub

above code is working.

due a missing operator error, i got the error 76
Thanks alot for your help guys.