Directory Change

[dcoledc]

I have this code that I have been using to allow the user to open a workbook within a specific folder:

10: Dim sFullPath As String
    
    ChDir ThisWorkbook.Path
    ChDir ".\..\" & "Patient Files"
    sFullPath = Application.GetOpenFilename("Excel Files (*.xl*)," & _
    "*.xl*", 1, "Select Patient File", "Open", False)

I am looking to add an If/Then statement right after this code that tests to see if the file the user tries to open is from another directoy and if so prevent them.

Is there a way to do that?

 

[dcoledc]

Got it!

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

 

[dcoledc]

Not quite. Strangely, if while in the fiel dialog, I go to the side and choose something from say "My Documents", my code doesn't work. I did a quick msgbox to see what the dir were and sure enough they were the same.

Anyone know why the directories would be the same even though I changed locations?

or does anyone have a solution?