Create a file with determinate size

July 21, 2013 6:28 pm Published by

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

Categorised in: ,

This post was written by admin

Comments are closed here.