Forum - Διαγραφή αρχείου exe

Καλησπέρα σε όλους
Πως μπορούμε να καταγράψουμε την διαδρομή ενός αρχείου exe σε πεδίο μέσα στην εφαρμογή όταν αποσυμπιέζετε.
Ο Τάσος για το excel παλαιοτέρα μου είχε προτείνει αυτό: http://www.ms-office.gr/forum/excel-...sympiesis.html
Υπαρχή κάτι αντίστοιχο για access που να μπορεί να χρησιμοποιηθεί από των παρακάτω κώδικα

Κώδικας:

Sub DeleteFile()

Dim strFilePath$, fso

strFilePath = "C:\Users\Γεωργιος\Desktop\expense_admin_trialv33\" & CurrentProject.name & ".exe"

Set fso = CreateObject("Scripting.FileSystemObject")

With fso

If .FileExists(strFilePath) Then

'On Error Resume Next

'.DeleteFile strFilePath

End If

Set fso = Nothing

End With

End Sub