Code:
DefaultWorkingDirectory = Application.GetOption("Default Database Directory")

Application.SetOption "Default Database Directory", getFilePath(strFullName)

Function getFilePath(ByVal fullFileName As String) As String
   Dim sFileName As String, RevPath As String
   sFileName = StrRev(fullFileName)
   RevPath = Mid(sFileName, InStr(1, sFileName, "\"))
   getFilePath
...