Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Αυτόματη εγκατάσταση αρχείων

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 06-10-19, 10:34
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 734
Προεπιλογή Αυτόματη εγκατάσταση αρχείων

Καλή σας μέρα,

Ζητώ την βοήθεια σας ως προς το εξής ζητούμενο:

Εχω έναν φάκελο τον οποίο ονομάζω «Installation» και μέσα σε αυτόν περιλαμβάνονται όλα τα απαιτούμενα αρχεία εγκατάστασης μιας εφαρμογής που έχω φτιάξει. Δηλαδή, περιλαμβάνονται κάποιοι άλλοι υπό-φάκελοι που μέσα έχουν διάφορα αρχεία (txt files, xlsx files, word κλπ).

Θα ήθελα να δημιουργήσω ένα module το οποίο θα μπορώ να εγκαθιστώ αυτόματα όλα τα πιο πάνω αρχεία σε διάφορα Paths στον C:\ . Στο σημείο αυτό να αναφέρω ότι ήδη χρησιμοποιώ μια εφαρμογή που κάνει αυτόματα την πιο πάνω διαδικασία αλλά επειδή δεν εξυπηρετεί απολύτως την πλήρη αυτοματοματοποϊηση του ζητούμενου εγκατάστασης της εφαρμογής, ψάχνω να δω αν μπορεί να γίνει κάτι άλλο..

Υπάρχει καμία ιδέα?
__________________
Γιώργος Στυλιανού

gs.pocketpc@gmail.com
Απάντηση με παράθεση
  #2  
Παλιά 06-10-19, 12:12
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 734
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από γιώργοςΚ Εμφάνιση μηνυμάτων
Καλή σας μέρα,

Ζητώ την βοήθεια σας ως προς το εξής ζητούμενο:

Εχω έναν φάκελο τον οποίο ονομάζω «Installation» και μέσα σε αυτόν περιλαμβάνονται όλα τα απαιτούμενα αρχεία εγκατάστασης μιας εφαρμογής που έχω φτιάξει. Δηλαδή, περιλαμβάνονται κάποιοι άλλοι υπό-φάκελοι που μέσα έχουν διάφορα αρχεία (txt files, xlsx files, word κλπ).

Θα ήθελα να δημιουργήσω ένα module το οποίο θα μπορώ να εγκαθιστώ αυτόματα όλα τα πιο πάνω αρχεία σε διάφορα Paths στον C:\ . Στο σημείο αυτό να αναφέρω ότι ήδη χρησιμοποιώ μια εφαρμογή που κάνει αυτόματα την πιο πάνω διαδικασία αλλά επειδή δεν εξυπηρετεί απολύτως την πλήρη αυτοματοματοποϊηση του ζητούμενου εγκατάστασης της εφαρμογής, ψάχνω να δω αν μπορεί να γίνει κάτι άλλο..

Υπάρχει καμία ιδέα?
Επανέρχομαι και παλι διότι μάλλον έχω βρεί την λύση στο πρόβλημα μου. Προς κάθε ενδιαφερόμενο πάρα κάτω παραθέτω τον κώδικα που επιλύνει το ζητούμενο.

Public Sub Copy_Folder()
'This example copy all files and subfolders from FromPath to ToPath.
'Note: If ToPath already exist it will overwrite existing files in this folder
'if ToPath not exist it will be made for you.
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String

FromPath = "D:\Installation" '<< Change
ToPath = "D:\MyApplication\" '<< Change

'If you want to create a backup of your folder every time you run this macro
'you can create a unique folder with a Date/Time stamp.
'ToPath = "C:\Users\Ron\" & Format(Now, "yyyy-mm-dd h-mm-ss")

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

FSO.CopyFolder Source:=FromPath, Destination:=ToPath
MsgBox "You can find the files and subfolders from " & FromPath & " in " & ToPath

End Sub
__________________
Γιώργος Στυλιανού

gs.pocketpc@gmail.com
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Εκτύπωση] Αυτόματη εκτύπωση πολλών αρχείων excel με περισσότερα από ένα φύλλα ανά αρχείο BizosDim Excel - Ερωτήσεις / Απαντήσεις 1 09-10-18 10:13
[Excel07] Μέγεθος αρχείων excel Meteora Excel - Ερωτήσεις / Απαντήσεις 3 15-04-17 19:42
Ανέβασμα Αρχείων Spirosgr Τα Νέα του Ms-Office.gr 0 15-02-17 08:48
Πρόβλημα με εγκατάσταση Office manolis Off topic - Εκτός θέματος 1 20-02-13 18:57
[Excel07] Ενοποίηση αρχείων excel-αυτόματη ενημέρωση ΧΟΥ Excel - Ερωτήσεις / Απαντήσεις 5 17-02-13 23:46


Η ώρα είναι 23:07.