Grazie Luciano79

L'unica differenza da FolAl è che lui usa un persorso di rete mentre io lavoro sempre in locale (ma questo non dovrebbe far differenza giusto?)

Cmq ora funziona correttamente. Il mio errore stava nel fatto che non indicavo il nome del file di destinazione ma solo la cartella di destinazione.

Per cui se faccio:
SourceFile = Me.CommonDialog_Phto.FileName
DestinationFile = App.Path & "\" & "1.gif"
FileCopy SourceFile, DestinationFile
la copia va a buon fine.

Ora il problema è questo: vorrei che la copia del file mantenga lo stesso nome del file originale. Come posso fare per ricavare nome+estensione di Me.CommonDialog_Phto.FileName?

Grazie