Dynamic Path coding help

[pat_nospam]

Dim strPath As String
    Dim intCounter As Integer
    
    Set db = CurrentDb
    strPath = db.Name
    db.Close
    Set db = Nothing
        
    For intCounter = Len(strPath) To 1 Step -1
        If Mid$(strPath, intCounter, 1) = "\" Then
            Exit For
        End If
    Next intCounter
    
    GetPathPart = Left$(strPath, intCounter)

End Function

I'd like to be able to add a subdirectory to the end of the strPath (a sub directory in the db.Name path area, i.e. c:\desktop\database\subdirectory)

How would I add that to the strPath?

strPath = db.Name + "\subdirectory\" ?

Thanks in advance

 

[boblarson]

I'd like to be able to add a subdirectory to the end of the strPath (a sub directory in the db.Name path area, i.e. c:\desktop\database\subdirectory)

How would I add that to the strPath?

strPath = db.Name + "\subdirectory\" ?

Thanks in advance

Best to use

strPath = db.Name & "\subdirectory"

You don't need the ending backslash if you are just going subdirectory level. If you are going file level then:

strPath = db.Name & "\subdirectory\filename"