Unable To Open Explorer To The Specified Folder

[Ark68]

Considering ...

txt_model = "Skittles"
I am trying to create the folder "Skittles" in the specified path using the code below.

Sub open_folder(txt_model As String)
    Dim modelini As String
    Dim ffound As String
    
    If Right(txt_model, 1) = "." Then txt_model = Left(txt_model, (Len(txt_model) - 1))
    modelini = Left(txt_model, 1)
    fldpath = "M:\IFM\" & modelini & "\" & txt_model & "\"
    ffound = Dir(fldpath)
    If ffound = "" Then 'folder not found. Opt to create one.
        MkDir fldpath
    End If
    Shell "explorer.exe /root," & fdlpath, vbNormalFocus
End Sub

In my testing, "Skittles" does not exist, so the folder is created in the appropriate location.
Once this is done, I want file explorer to open up the newly created folder. But the code here only opens up file explorer to it's most highest level, not to the individual folder level.

 

[rollis13]

If I understand your intent correctly, patch up your macro as below:

'...
If ffound = "" Then                           'folder not found. Opt to create one.
    MkDir "M:\IFM\" & modelini                '<-- added
    MkDir fldpath
End If
Shell "explorer.exe /root," & fldpath, vbNormalFocus '<-- fixed typo (was fdlpath)
'...

 

[Micron]

Just my opinion but when I read "if you don't use Option Explicit" you get the grief you deserve.
Your folder path variable is spelt differently in different code lines.

EDIT - I think it was actually If you don't use Option Explicit you deserve the grief you get.

 

[rollis13]

Ehm, this would be even better:

'...
If ffound = "" Then                           'folder not found. Opt to create one.
    On Error Resume Next                      '<-- added
    MkDir "M:\IFM\" & modelini                '<-- added
    On Error GoTo 0                           '<-- added
    MkDir fldpath
End If
Shell "explorer.exe /root," & fldpath, vbNormalFocus '<-- fixed typo (was fdlpath)
'...

 

[Ark68]

Thank you Rollis.
Micron, the one module I hadn't used Option Explicit. Is there a way to automatically have that injected in code when creating a new module?

 

[John_w]

the one module I hadn't used Option Explicit. Is there a way to automatically have that injected in code when creating a new module?

Tools -> Options -> Editor tab - Require Variable Declaration.

 

[Micron]

You have to manually add it to existing modules. Choosing the option won't insert it in those modules.