Κουμπί για αντιγραφή/άνοιγμα αρχείου xls

[petrikos]

Καλησπέρα σε όλους,

Έχω ένα κουμπί μέσα στην φόρμα που δημιουργεί ή ανοίγει τον φάκελο ο οποίος παίρνει το όνομά του από το πρώτο πεδίο που είναι κλειδί και έχει αύξων αριθμό.

Θέλω να βάλω ένα κουμπί το οποίο θα αντιγράφει ένα αρχείο xls από τον φάκελο C:\data files\praktor\custinfo.xls, στον φάκελο που δημιουργήθηκε με το άλλο κουμπί ή θα το ανοίγει αν υπάρχει ήδη.
Μπορεί κάποιος να βοηθήσει με τον κώδικα;

Ακολουθεί ο κώδικας από το κουμπί δημιουργίας/ανοίγματος φακέλου:
Private Sub Εντολή81_Click()

Const FOLDER_EXISTS = 75
Dim strFolderPath As String
strFolderPath = "c:\data files\praktor\" & Me.[AA]

On Error Resume Next
MkDir "c:\data files\praktor"
Err.Clear
MkDir "c:\data files\praktor\"
Err.Clear
MkDir strFolderPath
Select Case Err.Number
Case 0
' no error
Case FOLDER_EXISTS
' folder exists so open it
Application.FollowHyperlink strFolderPath
Case Else
' unknown error so inform user
MsgBox Err.Description, vbExclamation, "Error"
End Select

End Sub