[tsgiannis]

[QUOTE=dimitrisp;33626[/QUOTE]

Ναι ... ο καφές δεν έπιασε αμέσως ενώ το debug της VBE αφήνει πολλές ελευθερίες... :)

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