Check active work in folder

[Av8tordude]

How can I check if my active workbook is located in a specific folder (i.e. (Folder: c:\Beta)

 

[Yongle]

this checks if a file with same name is in the folder (could be a different file if active workbook is being saved to a different folder)

Sub IsFileInFolder1()
    Dim fPath As String, n As String
    fPath = "C:\beta"
    n = ActiveWorkbook.Name
    fPath = InputBox(n & vbCr & "look in which folder ?", "", fPath) & "\" & n
    If Len(Dir(fPath)) > 0 Then MsgBox n & " found" Else MsgBox n & " not found"
End Sub

whereas this checks to see if the workbook's actual filepath is the same

Sub IsFileInFolder2()
    Dim fPath As String, n As String
    fPath = "C:\beta"
    n = ActiveWorkbook.Name
    fPath = InputBox(n & vbCr & "look in which folder ?", "", fPath)
    If ActiveWorkbook.Path = fPath Then MsgBox "matches" Else MsgBox "folder mismatch"
End Sub

Inputbox line can be deleted if you do not want to change folder at runtime