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

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

[kapetang]

Καλησπέρα

Ρούλα, δες το συνημμένο αρχείο.

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

Ελπίζω να μπορέσεις να προσαρμόσεις τον κώδικα στην περίπτωσή σου.

Γιώργος

[Ρούλα]

Πάρα πολύ καλό αλλά παίρνει μόνον τα αρχεία του φακέλου που επιλέγω. Μήπως γίνετε να παίρνει και τον φάκελο Όπου βρίσκονται τα αρχεία,
πιστεύω πως μπορείς να το κάνεις
Σε ευχαριστώ πάρα πολύ για το χρόνο σου
Φιλικά Ρούλα

[kapetang]

Καλημέρα

Ρούλα, πράγματι υπάρχει πρόβλημα.

Ας υποθέσουμε ότι θέλουμε να μεταφέρουμε το φάκελο: c:\Test.

1) Αν η μεταφορά γίνεται σε ριζικό φάκελο (πχ H:\) γίνεται σωστά (H:\Test).

2) Αν η μεταφορά γίνεται σε μη ριζικό φάκελο (πχ H:\zzz) στο φάκελο H:\zzz θα αντιγραφεί μόνο το περιεχόμενο του c:\Test.

Είχα δοκιμάσει τον κώδικα για την πρώτη περίπτωση και υπολόγιζα ότι ισχύει και για τη δεύτερη.

Θα ξαναδώ το θέμα και αν λυθεί το πρόβλημα θα επανέλθω.

Γιώργος

[kapetang]

Ρούλα, δοκίμασε το συνημμένο

[Ρούλα]

Σε ευχαριστώ πάρα πολύ ήμουν σίγουρη ότι μπορούσες

Φιλικά Ρούλα: