Αναζήτηση

Λήψεις (downloads)

Προγράμματα Δασικού Ενδιαφέροντος

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

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

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

 

 

 

 

Ημερολόγιο

«  Ιανουάριος 2019  »
ΔΤΤΠΠΣΚ
123456
78910111213
14151617181920
21222324252627
28293031

Απόψεις του Διαχειριστή

Χρήσιμες συμβουλές

Ροές Ειδήσεων RSS Feeds

Μετρητής επισκεπτών

conter12

Επαφές

Αυτήν τη στιγμή επισκέπτονται τον ιστότοπό μας 107 επισκέπτες και κανένα μέλος

Καινοτόμες εφαρμογές

Τηλεσυνομιλίες

Παγκόσμιος μετεωρολογικός χάρτης