Hvordan få MP3 File Lengde av VBScript

Hvordan få MP3 File Lengde av VBScript


VBScript, en undergruppe av Visual Basic, kan hvem som helst å lage nyttige programmer som samhandler med Windows. Hvis du skriver VBScript programmer som bruker lyd, må du kanskje vise egenskapene for en MP3-fil. Komprimerte MP3-filer er små, men de likevel ta opp diskplass. Å vite hvor mye plass en MP3 forbruker kan bestemme hvordan din VBS programmering logikken flyter. Bruke Windows Scripting File, kan du lage en kort VBScript som forteller deg filen lengden på en hvilken som helst MP3.

Bruksanvisning

1 Åpne en teksteditor og legge til følgende kode i et nytt dokument:

dim FSO
Dim fileObject
Dim mp3Size
Dim filnavn
filename = InputBox ( "Skriv MP3 File Name")

De to første linjene med kode erklære File og File objektvariabler. Den mp3Size variable holder filen lengden på en MP3, og filnavnet variabelen inneholder filnavnet til MP3 du ønsker å undersøke. Den endelige uttalelsen bruker InputBox funksjonen til å be deg om at filnavnet.

2 Lim inn koden vist nedenfor etter Kodene i forrige trinn:

Sett FSO = Create ( "Scripting.FileSystemObject")
Sett fileObject = FSO.GetFile (filnavn)

mp3Size = fileObject.Size
MsgBox "MP3 Size =" & mp3Size

Denne koden skaper en ny File og en ny fil objekt. Den fileObject.Size funksjonen henter filen lengden på MP3 og lagrer den i mp3Size variabel. Den endelige uttalelsen viser at lengden på en meldingsboks.

3 Lagre filen og gi den en forlengelse av "vbs." For eksempel, hvis du ønsker å kalle programmet GetMp3Size, navngi filen "GetMp3Size.vbs."

4 Start Windows Utforsker og finne VBS-filen du lagret. Dobbeltklikk på filen for å kjøre den, og skriv inn navnet på en hvilken som helst MP3-fil i tekstboksen som vises.

5 Trykk enter." The VBScript går og viser MP3 fil lengde.

Hint

  • Dette eksemplet spør etter navnet på en MP3-fil. Du kan også angi navnet på en MP3-fil manuelt i stedet for å spørre en bruker for det navnet. For å gjøre det, tilordner navnet på en MP3 til filnavnet variabel, og slette den uttalelsen som inneholder InputBox funksjonen.