IF Else statement not executing properly

[hrq]

Hi All, how can the code be amend below so that subfolderpath folder will be created? Currently, if folderpath exist but subfolderpath does not exist, it kind of jump straight to End If.

I tried to include an ElseIf, it still doesn't work.

The code as follows:

If Dir(folderpath, vbDirectory) = "" And Dir(subfolderpath, vbDirectory) = "" Then         
   'check whether folder exist
   MkDir folderpath        
   'create folder
   MkDir subfolderpath        
   'create folder
      If Dir(subfolderpath, vbDirectory) = "" Then
        MkDir subfolderpath        
        'create folder
       counter = counter + 1
    End If
End If

If Dir(folderpath, vbDirectory) = "" And Dir(subfolderpath, vbDirectory) = "" Then         
   'check whether folder exist
   MkDir folderpath        
   'create folder
   MkDir subfolderpath        
   'create folder
   ElseIf Dir(subfolderpath, vbDirectory) = "" Then
   MkDir subfolderpath        
   'create folder
   counter = counter + 1
End If

[georgiboy]

This is because within the first If statement both of the folders need to not exist before it fires any of the rest of the code. I would imagine you need to break those two parts seperated by the 'And' into their own If's.

So:
If folderpath does not exixst then
'Make both folderpath and subfolderpath
ElseIf subfolderpath does not exist the
'Make only subfolderpath
Else
'Something else

Untested code:

If Dir(folderpath, vbDirectory) = "" Then
    MkDir folderpath
    MkDir subfolderpath
ElseIf Dir(subfolderpath, vbDirectory) = "" Then
    MkDir subfolderpath
Else
    'something else
End If

[hrq]

thanks for help! it works perfectly!