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

[anestaki]

Καλησπέρα σε όλους
Πως μπορούμε να καταγράψουμε την διαδρομή ενός αρχείου 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