[tsgiannis]

Στο DocumentComplete (είναι στον κώδικα της φόρμας)

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

Κάνεις τις τροποποιήσεις που θες και είσαι κομπλε
ΣΗΜΕΙΩΣΗ : Ενδιαφέρον το κολπάκι με το WebBrowser Control και το Drag Drop έστω και με τους περιορισμούς του..μέχρι και τα Windows 7 είχαμε την δυνατότητα μέσω API Calls να κάνουμε μια οποιαδήποτε φόρμα να δεχτεί Drag - Drop αλλά με τα Windows 10 κάτι άλλαξε και πάπαλα.