Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte textový editor a pridajte nasledujúci kód do nového dokumentu : 
 
 Dim FSODim fileObjectDim mp3SizeDim fileNamefileName = InputBox ( " Zadajte MP3 File Name " ) 
 
 prvých dvoch riadkov kódu deklarovať premenné objektu FileSystemObject a súborov . Premenná mp3Size má dĺžku súboru MP3 a názov súboru premenná obsahuje názov súboru MP3 , ktorý chcete preskúmať . Konečné vyúčtovanie pomocou funkcie InputBox vyzvať vás k tomuto názvu súboru 
 2 
 Vložte kód zobrazený na obrázku nižšie po kódu uvedeného v predchádzajúcom kroku : . 
 
 Set FSO = CreateObject ( " Scripting.FileSystemObject " ) Set fileObject = FSO.GetFile ( filename) 
 
 mp3Size = fileObject.SizeMsgBox " MP3 Size = " & mp3Size 
 
 Tento kód vytvorí nový FileSystemObject a nový objekt File . Funkcie fileObject.Size načíta dĺžku súboru MP3 a uloží ju do premennej mp3Size . Konečné vyúčtovanie sa zobrazí túto dĺžku v okne so správou . 
 3 
 Uložte súbor a dať mu príponu " . Vbs . " Napríklad , ak chcete volať program GetMp3Size , názov súboru " GetMp3Size.vbs . " 
 4 
 spustite Prieskumníka Windows a vyhľadajte VBS súbor , ktorý ste uložili . Dvakrát kliknite na súbor , ktorý chcete spustiť , a zadajte názov ľubovoľného súboru MP3 do textového poľa , ktoré sa objavia . 
 5 
 Stlačte tlačidlo " Enter " . VBScript spustí a zobrazí dĺžku súboru MP3 .