Note: The other languages of the website are Google-translated. Back to English

Πώς να καταχωρίσετε όλα τα αρχεία σε φάκελο και υποφακέλους σε ένα φύλλο εργασίας;

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

Καταγράψτε όλα τα ονόματα αρχείων σε φάκελο και υποφάκελο με κωδικό VBA

Καταγράψτε όλα τα ονόματα αρχείων σε φάκελο και υποφάκελο γρήγορα και εύκολα με το Kutools για Excel


Κανονικά, το Excel δεν διαθέτει δυνατότητα ενσωμάτωσης για την αντιμετώπιση αυτής της εργασίας, αλλά, μπορείτε να εφαρμόσετε τον ακόλουθο κώδικα VBA για να ολοκληρώσετε αυτό το πρόβλημα.

1. Ενεργοποιήστε ένα νέο φύλλο εργασίας που θα εμφανίζει τα ονόματα αρχείων.

2. Κρατήστε πατημένο το ALT + F11 στο Excel και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

3. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός VBA: Λίστα όλων των ονομάτων αρχείων σε φάκελο και υποφάκελο

Sub MainList()
'Updateby Extendoffice
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub
Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

4. Αφού επικολλήσετε τον κώδικα στην Ενότητα, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα, και a Μακροεντολές εμφανίζεται το παράθυρο διαλόγου, επιλέξτε το Κύρια λίστα όνομα μακροεντολής και, στη συνέχεια, κάντε κλικ στο τρέξιμο κουμπί, δείτε το στιγμιότυπο οθόνης:

αρχεία λίστας εγγράφων στον υποφάκελο 1

5. Και στο Αναζήτηση παράθυρο, επιλέξτε το φάκελο στον οποίο θέλετε να αναφέρετε όλα τα ονόματα αρχείων συμπεριλαμβανομένων των υποφακέλων, δείτε το στιγμιότυπο οθόνης:

αρχεία λίστας εγγράφων στον υποφάκελο 2

6. Αφού καθορίσετε το φάκελο, κάντε κλικ στο OK κουμπί και όλα τα ονόματα αρχείων στο φάκελο και τους υποφακέλους του έχουν καταχωριστεί στο τρέχον φύλλο εργασίας από το κελί A2, δείτε στιγμιότυπα οθόνης:

αρχεία λίστας εγγράφων στον υποφάκελο 3
1
αρχεία λίστας εγγράφων στον υποφάκελο 4

Με τον παραπάνω κωδικό, μπορείτε απλώς να παραθέσετε τα ονόματα αρχείων, μερικές φορές, πρέπει να παραθέσετε άλλα χαρακτηριστικά, όπως μέγεθος αρχείου, τύπο αρχείου, ώρα δημιουργίας, που περιέχει φάκελο και άλλα. Kutools για Excel περιέχει μια χρήσιμη λειτουργία - Λίστα ονομάτων αρχείων, με αυτήν τη δυνατότητα, μπορείτε να εμφανίσετε γρήγορα όλους ή συγκεκριμένους τύπους ονομάτων αρχείων σε ένα φάκελο και τους υποφακέλους του.

Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες.

Μετά την εγκατάσταση Kutools για Excel, κάντε τα παρακάτω βήματα:

1. Κλίκ Εταιρεία > Εισαγωγή εξαγωγή > Λίστα ονομάτων αρχείων, δείτε το στιγμιότυπο οθόνης:

2. Στην Λίστα ονομάτων αρχείων πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:

A: Κάντε κλικ αρχεία λίστας εγγράφων στον υποφάκελο 7κουμπί για να επιλέξετε το φάκελο που θέλετε να αναφέρετε τα ονόματα αρχείων.

B: Καθορίστε τον τύπο αρχείου που θέλετε να παραθέσετε από το Τύπος αρχείων Ενότητα;

C: Επιλέξτε μία μονάδα μεγέθους αρχείου που θέλετε να εμφανιστεί από το Μονάδα μεγέθους αρχείου τμήμα.

Note: Για να εμφανίσετε τα ονόματα αρχείων από τον υποφάκελο, ελέγξτε Συμπεριλάβετε αρχεία σε υποκαταλόγους, μπορείτε επίσης να ελέγξετε το Συμπεριλάβετε κρυφά αρχεία και φακέλους όπως χρειάζεστε. Εάν ελέγξετε Δημιουργία υπερσυνδέσμων επιλογή, θα δημιουργήσει υπερσυνδέσμους για κάθε όνομα αρχείου και φάκελο.

Λήψη και δωρεάν δοκιμή τώρα!

3. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, όλα τα αρχεία που περιλαμβάνονται στον επιλεγμένο φάκελο και τους υποφακέλους του έχουν εμφανιστεί με τα ακόλουθα χαρακτηριστικά σε ένα νέο φύλλο εργασίας. Δείτε το στιγμιότυπο οθόνης:

αρχεία λίστας εγγράφων στον υποφάκελο 8

Κάντε κλικ για να μάθετε περισσότερες λεπτομέρειες σχετικά με αυτό το βοηθητικό πρόγραμμα Λίστα αρχείων.

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!


Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (20)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλό άρθρο Ευχαριστώ :D
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ, Ευχαριστώ για αυτή την υπέροχη χρησιμότητα.....!!! ανιλκουμάρ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ΠΩΣ ΝΑ ΚΑΝΕΤΕ ΑΥΤΟ ΤΟ ΕΡΩΤΗΜΑ ΝΑ ΛΕΙΤΟΥΡΓΕΙ ΓΙΑ ΝΑ ΠΑΡΕΧΟΝΤΑΙ ΤΑ ΟΝΟΜΑΤΑ ΑΡΧΕΙΩΝ ΑΠΟ ΤΟ κελί B2 αντί για το A2;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Satish,
Ο παρακάτω κώδικας μπορεί να σας βοηθήσει να τοποθετήσετε τα ονόματα αρχείων σε οποιοδήποτε κελί επιλέξατε, δοκιμάστε τον:

Sub MainList()
On Error Συνέχιση Επόμενη
Ορίστε xRg = Application.InputBox("Επιλέξτε ένα κελί για να βάλετε τα ονόματα αρχείων:", "KuTools For Excel", Selection.Address, , , , , 8)
Εάν το xRg δεν είναι τίποτα, τότε βγείτε από το Sub
Ορισμός xRg = xRg(1)
Ορισμός φακέλου = Application.FileDialog(msoFileDialogFolderPicker)
Αν Φάκελος.Εμφάνιση <> -1 Στη συνέχεια, Έξοδος Υπο
xDir = Folder.SelectedItems(1)
Λίστα κλήσεωνFilesInFolder(xRg, xDir, True)
Sub End
Sub ListFilesInFolder(ByVal xRg ως εύρος, ByVal xFolderName ως συμβολοσειρά, ByVal xIsSubfolders ως Boolean)
Dim xFileSystemObject ως αντικείμενο
Dim xFolder ως αντικείμενο
Dim xSubFolder ως αντικείμενο
Dim xFile ως αντικείμενο
Αχνό ευρετήριο σειράς όσο διαρκεί
Ορισμός xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Ορισμός xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = 1
Για κάθε xFile Στο xFolder.Files
xRg.Formula = xFile.Name
Ορισμός xRg = xRg.Offset(rowIndex)
rowIndex = 1
Επόμενο xFile
Αν xIsΥποφάκελοι Τότε
Για κάθε xSubFolder Στο xFolder.SubFolders
ListFilesInFolder xRg, xSubFolder.Path, True
Επόμενος xSubFolder
End If
Ορισμός xFile = Τίποτα
Ορισμός xFolder = Τίποτα
Ορισμός xFileSystemObject = Τίποτα
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
μεγάλος!!! το λατρεύω, ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν είμαι σίγουρος.. αλλά εξετάζει μεγάλους φακέλους. Έγραψα έναν παρόμοιο κωδικό και αποτυγχάνει όταν η διαδρομή φακέλου/αρχείου υπερβαίνει τους 256 χαρακτήρες; Σκέψεις παρακαλώ;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ για το χρήσιμο άρθρο!
Πώς μπορώ να ενημερώσω αυτόματα τη λίστα και να εντοπίσω τις αλλαγές;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό με βοήθησε να μετατρέψω τον κώδικά μου για να λάβω την αναδρομική κλήση, αλλά αναρωτιέμαι για τον τρόπο που χρησιμοποιείτε τα αντικείμενα. Προτιμώ να ορίζω τα αντικείμενά μου ως αυτά που είναι, είτε είναι βιβλία εργασίας, φύλλα εργασίας ή αντικείμενα συστήματος αρχείων. (μειώστε το wbDest ως excel.workbook, μειώστε το wsDest ως excel.worksheet για παράδειγμα. Με αυτόν τον τρόπο δεν χρειάζεται ποτέ να ανησυχώ για το τι είναι το ενεργό φύλλο.

Αναρωτήθηκα επίσης για τη χρήση του .show - if.show <>-1, και δεν μπορώ να μην νιώσω ότι θα ήταν ευκολότερο για τους ανθρώπους να καταλάβουν εάν αντ 'αυτού χρησιμοποιούσατε if.show = ψευδές.

Και όσον αφορά το γράψιμο προς τον προορισμό, ένιωσα ότι η χρήση κελιών και φόρμουλας φαινόταν πολύ μακριά

Έτσι στον κώδικα μου έχω, για παράδειγμα,
wsDest.Range("B" & CurRow) = όνομα αρχείου
(CurRow = Τρέχουσα σειρά)

Δεν κάνω κριτική, απλά αναρωτιέμαι αν το κάνεις έτσι για οποιονδήποτε άλλο λόγο εκτός από προσωπική προτίμηση. - Πάντα πρόθυμος να μάθει


Αλλά εκτός από αυτό ευχαριστώ για τη βοήθεια
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ για αυτόν τον κωδικό, με βοήθησε να κάνω ένα αίτημα εργασίας, τώρα μπορώ να εισάγω αυτά τα αποτελέσματα στην Access για περαιτέρω μετασχηματισμό. Εκτιμήστε το.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το δευτερεύον "GetFileOwner()" στον παραπάνω κώδικα δεν χρησιμοποιείται.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, jumpjack,
Ο παραπάνω κώδικας λειτουργεί καλά στο Excel μου, ποια έκδοση Excel χρησιμοποιείτε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Extremamente elegante este codigo!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ποιος ήταν ο σκοπός της παραμέτρου ByVal xIsSubfolders As Boolean;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το VBA μου λέει ότι ο φάκελος της μεταβλητής δεν έχει οριστεί. Ξέρει κανείς γιατί συμβαίνει αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πραγματικά νέος στη VBA. πώς μπορώ να χρησιμοποιήσω τον παραπάνω κώδικα αλλά να έχω ενσωματωμένη τη διαδρομή του αρχείου, ώστε να μην χρειάζεται να τον αναζητώ κάθε φορά;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λοιπόν, αν πρέπει απλώς να εξαγάγω μια επέκταση από ολόκληρη τη λίστα, πού πρέπει να κάνω αλλαγές;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτουργεί και σε MAC;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τροποποίησα τον κώδικά σας για να τον κάνω να ανακυκλώνεται και να εκτελείται ξανά το παράθυρο διαλόγου φακέλου συνεχώς μέχρι να πατήσετε το Cancel. Ατυχώς, δημιουργεί ορισμένα σφάλματα.1. Εάν οι υποφάκελοι εμπλακούν σε έναν επιλεγμένο φάκελο, τότε ο επόμενος επιλεγμένος φάκελος γίνεται εκτός αριθμητικής σειράς.2. Εάν οι υποφάκελοι εμπλακούν σε έναν επιλεγμένο φάκελο, το κουμπί Άκυρο πρέπει να επαναληφθεί και να επαναληφθεί ανάλογα με το πόσους φακέλους έχετε προσθέσει.
Κώδικας:
Sub MainList()
'Ενημέρωση Extendoffice
Ορισμός φακέλου = Application.FileDialog(msoFileDialogFolderPicker)
Αν φάκελος.Εμφάνιση <> -1 Στη συνέχεια, Έξοδος Υπο
xDir = φάκελος.SelectedItems(1)
Call ListFilesInFolder (xDir, True)
End SubSub ListFilesInFolder (ByVal xFolderName ως συμβολοσειρά, ByVal xIsSubfolders ως Boolean)
Dim xFileSystemObject ως αντικείμενο
Dim xFolder ως αντικείμενο
Dim xSubFolder ως αντικείμενο
Dim xFile ως αντικείμενο
Αχνό ευρετήριο σειράς όσο διαρκεί
Ορισμός xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Ορισμός xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Σειρά + 1
Για κάθε xFile Στο xFolder.Files
Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
rowIndex = rowIndex + 1
Επόμενο xFile
Αν xIsΥποφάκελοι Τότε
Για κάθε xSubFolder Στο xFolder.SubFolders
ListFilesInFolder xSubFolder.Path, True
Επόμενος xSubFolder
End If
Ορισμός xFile = Τίποτα
Ορισμός xFolder = Τίποτα
Ορισμός xFileSystemObject = Τίποτα
Sub End

καμιά ιδέα ?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Συγγνώμη... Σας έδωσα λάθος κωδικό (παρακάτω), ορίστε ο κωδικός που τροποποίησα..
Κώδικας:
Sub MainList()
On Error Συνέχιση Επόμενη
Dim xFileSystemObject ως αντικείμενο
Dim xFolder ως αντικείμενο
Dim xSubFolder ως αντικείμενο
Dim xFile ως αντικείμενο
Αχνό ευρετήριο σειράς όσο διαρκεί
Αμυδρή απάντηση ως παραλλαγή
απάντηση = Λάθος
Με Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Επιλογή φακέλου"
.AllowMultiSelect = False
Ορισμός φακέλου = Application.FileDialog(msoFileDialogFolderPicker)
Αν φάκελος.Εμφάνιση = -1 Τότε
xDir = φάκελος.SelectedItems(1)
Αλλού
Έξοδος Sub
End If
Τέλος με

Call ListFilesInFolder (xDir, True)
Sub End

Sub ListFilesInFolder(ByVal xFolderName ως συμβολοσειρά, ByVal xIsSubfolders ως Boolean)
Ορισμός xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Ορισμός xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Σειρά + 1

Προσθέστε ένα κενό και μετά το Όνομα φακέλου στο φύλλο εργασίας
rowIndex = rowIndex + 1
Με Application.ActiveSheet.Cells(rowIndex, 1)
.Τιμή = xFolder.Name
.Μονάδα. Μέγεθος = 12
.Font.FontStyle = "Έντονη πλάγια γραφή"
Τέλος με
rowIndex = rowIndex + 1

Για κάθε xFile Στο xFolder.Files
Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
rowIndex = rowIndex + 1
Επόμενο xFile
Αν xIsΥποφάκελοι Τότε
Για κάθε xSubFolder Στο xFolder.SubFolders
ListFilesInFolder xSubFolder.Path, True
Επόμενος xSubFolder
rowIndex = rowIndex + 1
End If

Ορισμός xFile = Τίποτα
Ορισμός xFolder = Τίποτα
Ορισμός xFileSystemObject = Τίποτα

Καλέστε τη MainList
Sub End


Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ωραία δουλειά, ακριβώς αυτό που προσπαθούσα να δημιουργήσω. Αλλά αυτό είναι 1000% καλύτερο.
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL