Sotto unno script VBS che permette la creazione di un file di testo di una determinata dimesione.
'Lo scopo di questo script è di creare un file di testo ' con le dimesioni in byte specificate. Set fso = CreateObject("Scripting.FileSystemObject") 'Costante nome file da generare file_name = "file_size1.txt" 'Costante dimensioni file in byte '10485760 byte => 10Mb cdim_byte = 10485760 If not fso.FileExists (file_name) then 'Creo il file fso.CreateTextFile (file_name) 'Istanzio l'oggetto OggFile al relativo file creato Set OggFile = fso.GetFile (file_name) 'Istanzion l'oggetto OggTextStream Set OggTextStream = OggFile.OpenAsTextStream(2) 'Scrivo un carattere nel file 'OggTextStream.WriteLine "0" For count = 0 to cdim_byte - 1 OggTextStream.Write "0" Next 'Chiudo il file OggTextStream.Close Msgbox ("Creato File '" & file_name & "'.") else Msgbox ("File '" & file_name & "' già esistente, impossibile crearlo.") end if