Copy_Paste φακέλου

[Ρούλα]

Την καλησπέρα μου σε όλα τα παιδιά του Forum

Χρειάστηκα και πάλη την πολύτιμη βοήθειά σας παιδιά.
Έχω μια φόρμα με όνομα HEMODIALYSIS με ένα κουμπί δημιουργώ έναν φάκελο με το ονοματεπώνυμο του ασθενή και το ID MkDir "C:\HEMODIALYSIS" & "\" & Forms!frmHemodialysis!fldName & "_" & Forms!frmHemodialysis!ID και εκεί μέσα κάνει
Έξοδο όλα τα στοιχεία του ασθενούς σε .Pdf . Έως εδώ όλα καλά
Θα ήθελα εάν γίνετε με ένα άλλο κουμπί να κάνει αντιγραφή από το C:\HEMODIALYSIS
τον φάκελο με το Ονοματεπώνυμο του ασθενή και το ID (ΠΑΠΠΑΣ ΝΙΚΟΛΑΟΣ_5) και να
να κάνει επικόλληση σε ένα USB που θα έχω τοποθετήσει. Εάν γίνετε με Open Dialog
Η βοήθεια πολύτιμη και η κάθε προσφορά ευπρόσδεκτη. Έχω κάνει αυτό
Private Sub MoveFolder_Click()
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
FromPath = "C:\HEMODIALYSIS\" & Forms!frmHemodialysis!fldName & "_" & Forms!frmHemodialysis!ID & "\"

ToPath = " Παίρνει από Forms!frmHemodialysis!Drive :\100" & "\" & Forms!frmHemodialysis!fldName & "_" & Forms!frmHemodialysis!ID
If Right(FromPath, 1) = "\" Then
FromPath = Left(FromPath, Len(FromPath) - 1)
End If
If Right(ToPath, 1) = "\" Then
ToPath = Left(ToPath, Len(ToPath) - 1)
End If
Set FSO = CreateObject("scripting.filesystemobject")
If FSO.FolderExists(FromPath) = False Then
MsgBox FromPath & " doesn't exist"
Exit Sub
End If
If FSO.FolderExists(ToPath) = True Then
MsgBox ToPath & " exist, not possible to move to a existing folder"
Exit Sub
End If
FSO.MoveFolder Source:=FromPath, Destination:=ToPath
MsgBox "The folder is moved from " & FromPath & " to " & ToPath
End Sub

αλλά μου κτυπά μήνυμα. Που κάνω λάθος
Σας ευχαριστώ πολύ για τον πολύτιμε χρόνο σας . Φιλικά Ρούλα