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

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

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 και θα σας ζητηθεί ο φάκελος στον οποίο θέλετε να αντιγράψετε τα ονόματα. Επιλέξτε τον και πατήστε ΟΚ. Τα ονόματα θα αντιγραφούν στο λογιστικό φύλο.

 

 

 

 


Εκτύπωση   Email