Path without filename

[dcoledc]

I am trying to prevent the user from changing directories when I call getopenfilename. This sort of works:

10: Dim sFullPath As String
    Dim Force As String
    ChDir ThisWorkbook.Path
    ChDir ".\..\" & "Patient Files"
    Force = CurDir
    sFullPath = Application.GetOpenFilename("Excel Files (*.xl*)," & _
    "*.xl*", 1, "Select Patient File", "Open", False)
    If Force <> CurDir Then
        MsgBox "Invalid selection.", vbOKOnly + vbCritical, "Reports to Go..."
        GoTo 10
    End If

I am thinking if instead of using CurDir here:

If Force <> CurDir Then

I use sfullPath - Filename, I will get what I am looking for. Anyone know how to do that?

 

[dcoledc]

For those interested, I got using this function I found in a search:

Function FindLast(ByVal StringToSearch, ByVal StringToFind As String) As

Integer
Dim LastCount
LastCount = 0
While InStr(LastCount + 1, StringToSearch, StringToFind) > 0
  LastCount = InStr(LastCount + 1, StringToSearch, StringToFind)
Wend
FindLast = LastCount
End Function

And here is the code using the function:

10: Dim sFullPath As String
Dim LastSlash As String
Dim x As String
Dim force As String
ChDir ThisWorkbook.Path
ChDir ".\..\" & "Patient Files"
force = CurDir & Application.PathSeparator
sFullPath = Application.GetOpenFilename("Excel Files (*.xl*)," & _
"*.xl*", 1, "Select Patient File", "Open", False)
    
LastSlash = FindLast(sFullPath, "\")
x = Left(sFullPath, LastSlash)
If sFullPath = "False" Then
    beforeClose = False
    beforeSave = False
    Exit Sub
End If
    
If force <> x Then
    MsgBox "Invalid selection.", vbOKOnly + vbCritical, "Reports to Go..."
    GoTo 10
Else

 

[thunderfoot]

I've always used =CELL("Filename") to determine Path being used and filename. If it doesn't meet with what you want then get the Coding to do whatever you want it to do.

 

[dcoledc]

I am fairly new to VBA. How do you use the code you suggest?