[VB] Copiare File - Accesso Negato

[zampa28]

ecco il codice che uso:

Private Sub CmdAggiorna_Click()
'Aggiorna il database
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(App.Path & "\immagini\AA001.jpg")
    f.Copy App.Path & "\Database"
    MsgBox ("OK!!!")
End Sub

Errore:

Accesso negato e mi sottolinea questa riga:

    f.Copy App.Path & "\Database"

Se invece provo a copiare delle cartelle, sostituendo GetFile con GetFolder tutto funziona perfettamente.