check if folder exist with wildcards

[BRB1983]

I would like to use a wildcard to check if a folder exist. i have tried the following: "C:\Users\*\Desktop\New folder"
"C:\Users" & "*" & "\Desktop\New folder"
"C:\Users\ + "*" + "\Desktop\New folder"
i get, "bad file name or number." is there a way to do this?

Sub TestForDir()Dim strDir As String
    strDir = "C:\Users\*\Desktop\New folder\"
    
    If Dir(strDir, vbDirectory) = "" Then
        MkDir strDir
    Else
        MsgBox "Directory exists."
    End If
End Sub

 

[Johnny C]

I doubt that is possible. You will need to loop through all the subfolders under C:\Users\ and test if C:\Users\subfolder\Desktop\New folder\ exists and set a flag or count in the loop.

Unless you have Administrator rights over the PC you won't be able to access anyone else's profile under C:\Users\

 

[RoryA]

Are you trying to test if the folder exists on the current user's desktop?

 

[BRB1983]

yes on the current user desktop. Also sharing the excel with one other user. so i need it to create a folder on desktop or in documents if folder don't exist. "C:\Users\bbonin\Desktop\New folder" this works on mine, but need it to work on a second desktop as well.

 

[RoryA]

You can get the desktop path with:

createobject("WScript.Shell").specialfolders("Desktop")

So:

strDir = createobject("WScript.Shell").specialfolders("Desktop") & "\New folder\"
    
    If Dir(strDir, vbDirectory) = "" Then
        MkDir strDir
    Else
        MsgBox "Directory exists."
    End If

 

[BRB1983]

thanks that works