Se hai il Percorso INTERO puoi recuperare il Path facendo lo Strip della stringa...
Come sai il Percorso si ricava leggendo con INSTRREV la posizione del carattere "\" ultimo... e quanto viene prima è il PATH.
Public Function GetFilePath(strPath As String) As String
Dim strIn As String
strIn = Mid$(strPath, 1, InStrRev(strPath, "\"))
GetFilePath = strIn
End Function
In quel caso avresti risolto.
Cosa diversa è se hai strutturato una particolare PATH per Commessa, allora questo campo deve essere memorizzato nella Commessa come Campo PATH, ed a quel punto i FIle Allegati alla Commessa avranno solo il NomeFIle, ed il Path completo verrà fatto per concatenazione.