[tsgiannis]

Το παρακατω θα αναλάβει να τραβήξει μόνο το όνομα του PDF:

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim fileArr
Dim filename As String
Dim lenArray As Integer
fileArr = Split(URL, ".")(0)
fileArr = Split(filename, "\")
lenArray = UBound(fileArr) - LBound(fileArr)
filename = fileArr(lenArray)
    If URL <> AboutBlank Then
        DoCmd.RunSQL ("INSERT INTO LogFiles (FILENameS) VALUES ('" & filename & "')")
        
    End If
End Sub