Καλησπέρα σε όλους:
Γιώργο, στο συνημμένο αρχείο υπάρχει ένα απλό παράδειγμα που νομίζω ότι θα σε βοηθήσει αν το προσαρμόσεις σύμφωνα με στις απαιτήσεις σου.
Πριν ξεκινήσεις τις δοκιμές σου θα χρειαστεί να δημιουργήσεις έναν επιπλέον φάκελο με το όνομα
C:\XML_EditFolder για να λειτουργήσει το παράδειγμα.
Η φόρμα frmMain περιέχει 2 αντικείμενα "Microsoft Web Browser" (ActiveX).
Το αριστερό εμφανίζει τον φάκελο C:\search και τα σχετικά στοιχεία ελέγχου για την αναζήτηση.
Αν με κάποια εντολή (πχ. διπλό κλικ, Enter κλπ.) τρέχεις το αρχείο, τότε το αρχείο θα μεταφερθεί ή θα αντιγραφεί στο φάκελο
C:\XML_EditFolder που απεικονίζεται στο δεξί αντικείμενο "Microsoft Web Browser".
Μπορείς επίσης να χρησιμοποιήσεις Drag & Drop για να μεταφέρεις αρχεία από και προς κάθε κατεύθυνση.
Στο έργο
VBA του αρχείου έχουν προστεθεί από το μενού Tools>References οι παρακάτω αναφορές:
- Microsoft Shell Controls And Automation
- Microsoft Scripting Runtime
Δες το, κάνε τις αλλαγές σου και αν χρειαστείς κάτι γράψε στο φόρουμ.