Πίνακας περιεχομένων
Αυτό το σύντομο σεμινάριο θα δείξει πώς να χρησιμοποιήσετε τη μέθοδο GetFileName του FileSystemObject.
Λήψη ονόματος αρχείου με το VBA FileSystemObject
Αυτό το μάθημα χρησιμοποιεί το FileSystemObject. Για να το χρησιμοποιήσετε, θα πρέπει να ορίσετε μια αναφορά στη βιβλιοθήκη χρόνου εκτέλεσης σεναρίων VB. Δείτε εδώ για περισσότερες πληροφορίες.
Για να λάβετε το όνομα αρχείου από οποιαδήποτε διαδρομή, μπορείτε να χρησιμοποιήσετε:
| 123456789101112 | Sub FSOGetFileName ()Dim Name Name ως συμβολοσειράDim FSO ως νέο FileSystemObjectΟρισμός FSO = CreateObject ("Scripting.FileSystemObject")«Λήψη ονόματος αρχείουFileName = FSO.GetFileName ("C: \ ExamplePath \ ExampleFile.txt")«Λήψη ονόματος αρχείου χωρίς επέκτασηFileNameWOExt = Αριστερά (Όνομα αρχείου, InStr (Όνομα αρχείου, ".") - 1)Τέλος υπο |
Η μεταβλητή FileName θα κρατήσει στη συνέχεια την τιμή του "ExampleFile.txt", η μεταβλητή FileNameWOExt θα είναι χωρίς την επέκταση "ExampleFile".
Λήψη ονόματος αρχείου χωρίς επέκταση
Όπως σημειώθηκε παραπάνω, για να λάβετε το όνομα αρχείου χωρίς επέκταση χρησιμοποιήστε αυτήν τη γραμμή κώδικα:
| 1 | FileNameWOExt = Αριστερά (Όνομα αρχείου, InStr (Όνομα αρχείου, ".") - 1) |
