1 Ανοίξτε έναν επεξεργαστή κειμένου και προσθέστε τον ακόλουθο κώδικα σε ένα νέο έγγραφο :
Δημ. FSODim fileObjectDim mp3SizeDim fileNamefileName = InputBox ( " Πληκτρολογήστε το όνομα αρχείου MP3 " )
Οι δύο πρώτες γραμμές κώδικα δηλώνουν FileSystemObject αρχείων και μεταβλητές αντικειμένου . Η μεταβλητή mp3Size κατέχει το μήκος του αρχείου ενός MP3 , και η μεταβλητή αρχείου περιέχει το όνομα του αρχείου του MP3 που θέλετε να εξετάσετε . Η τελική δήλωση χρησιμοποιεί τη συνάρτηση InputBox να σας ζητήσει για το όνομα του αρχείου 2
Επικολλήστε τον κωδικό που εμφανίζεται παρακάτω μετά τον κωδικό που αναφέρονται στο προηγούμενο βήμα : .
Ορισμός FSO = CreateObject ( " Scripting.FileSystemObject " ) Set FileObject = FSO.GetFile ( fileName )
mp3Size = fileObject.SizeMsgBox " MP3 Μέγεθος = " & mp3Size
Αυτός ο κώδικας δημιουργεί ένα νέο FileSystemObject και ένα νέο αντικείμενο αρχείου . Η λειτουργία fileObject.Size ανακτά το μήκος του αρχείου του MP3 και την αποθηκεύει στη μεταβλητή mp3Size . Ο τελικός απολογισμός εμφανίζει αυτό το μήκος σε ένα πλαίσιο μηνύματος .
Εικόνων 3
Αποθηκεύστε το αρχείο και να δώσει την επέκταση της " . Vbs . « Για παράδειγμα , αν θέλετε να καλέσετε το πρόγραμμα GetMp3Size , ονομάστε το αρχείο " GetMp3Size.vbs . "
Η 4
Ξεκινήστε την Εξερεύνηση των Windows και να βρει το αρχείο VBS που έχετε αποθηκεύσει . Κάντε διπλό κλικ στο αρχείο για να τρέξει , και πληκτρολογήστε το όνομα του κάθε αρχείου MP3 στο πλαίσιο κειμένου που εμφανίζεται .
5
Πατήστε "Enter ". Η VBScript τρέχει και εμφανίζει το μήκος του αρχείου MP3 της .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα