Question User To Create Folders?

[zendog1960]

I am having trouble with this code. Can someone tell me why the "Project Processing' section doesn't run at all? The 'Client Processing' section runs and executes find but it seems the 'Project Processing' section does not. very frustrated at the moment!

    Public Sub btnExecute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExecute.Click
        Dim mBaseFolder As String
        Dim mProjectFolder As String
        Dim mClientName As String
        Dim sClientFolder As String
        Dim sProjectFolder As String

        mBaseFolder = "C:\Testing\"
        mClientName = cboxClient.SelectedItem
        mProjectFolder = txtProjectName.Text
        sClientFolder = (mBaseFolder + mClientName)
        sProjectFolder = (mProjectFolder + "\" + mProjectFolder)

        MsgBox("Client Folder Is " + sClientFolder)
        MsgBox("Project Folder Is " + sProjectFolder)

        'Client(Processing)
        If mClientName = "<Add New Client>" Then
            sClientFolder = InputBox("Please Enter the New Client Name", "New Client Creation", "Input New Client Name Here")
            Do Until Directory.Exists(mBaseFolder + sClientFolder) = False
                'shows message if Project Directory exist
                MsgBox("Client Directory Already Exist ")
                sClientFolder = InputBox("Please Enter the New Client Name", "New Client Creation", "Input New Client Name Here")
            Loop
            MkDir(mBaseFolder + sClientFolder)
            MsgBox("Client Folder Is " + sClientFolder)
        End If

        'Project Processing
        If Directory.Exists(sProjectFolder) Then
            sProjectFolder = InputBox("Please Enter the New Project Name", "New Project Creation", "Input New Project Name Here")
            Do Until Directory.Exists(sProjectFolder) = False
                'shows message if Project Directory exist
                MsgBox("Project Directory Already Exist ")
                sProjectFolder = InputBox("Please Enter the New Project Name", "New Project Creation", "Input New Project Name Here")
            Loop
            MkDir(sClientFolder + sProjectFolder)
            MsgBox("Project Folder Is " + sProjectFolder)
        End If
    End Sub

 

[jmcilhinney]

The specified folder doesn't exist.

 

[picoflop]

mProjectFolder = txtProjectName.Text
sProjectFolder = (mProjectFolder + "\" + mProjectFolder)

doesnt make much sense
maybe you wanted mBaseFolder + mProjectFolder?

single step debugging and/or a breakpoint would have probably revealed it