Αντιγραφή των ονομάτων αρχείων φακέλου

Πολλές φορές θέλουμε να αντιγράψουμε ή και να εκτυπώσουμε τα ονόματα των αρχείων που υπάρχουν σε κάποιο φάκελο του Η/Υ.

H ερώτηση είναι πως μπορεί να γίνει αυτό. Υπάρχουν οι εξής λύσεις:

1^ος τρόπος

Αντιγράψτε την διαδρομή του φακέλου που περιέχει τα αρχεία τα ονόματα των οποίων θέλετε να αντιγράψετε (π.χ. c:\Diafora\keimena\). Αντιγράψετε την διαδρομή στον web browser που χρησιμοποιείται, π.χ. FireFox, Opera, Chrome. Και πατήστε το ENTER. Επιλέξτε όλα τα αρχεία με Ctrl+A και αντιγράψτε με Crtl+C .

Ανοίξτε το λογιστικό σας φύλλο και αντιγράψτε τα ονόματα πατώντας CTRL+V.

2^ος τρόπος

Χρησιμοποίησης VBA στο EXCEL

Επιλέξτε Προγραμματιστής>Visual Basicà Insert>Module και αντιγράψτε τον παρακάτω κώδικα:

Option Explicit

Sub GetFileNames()

Dim xRow As Long

Dim xDirect$, xFname$, InitialFoldr$

InitialFoldr$ = "C:\"

With Application.FileDialog(msoFileDialogFolderPicker)

.InitialFileName = Application.DefaultFilePath & "\"

.Title = "Επιλέξτε τον φάκελο με την λίστα των αρχείων"

.InitialFileName = InitialFoldr$

.Show

If .SelectedItems.Count <> 0 Then

xDirect$ = .SelectedItems(1) & "\"

xFname$ = Dir(xDirect$, 7)

Do While xFname$ <> ""

ActiveCell.Offset(xRow) = xFname$

xRow = xRow + 1

xFname$ = Dir

Loop

End If

End With

End Sub

Επιλέξτε το Run και θα σας ζητηθεί ο φάκελος στον οποίο θέλετε να αντιγράψετε τα ονόματα. Επιλέξτε τον και πατήστε ΟΚ. Τα ονόματα θα αντιγραφούν στο λογιστικό φύλο.