home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch20 / statclss / makedata.scr < prev    next >
Encoding:
Text File  |  1996-05-12  |  304 b   |  16 lines
  1. Sub Main()
  2.  
  3. Set FS = CreateObject("Scripting.FileSystemObject")
  4. Set OutStream = FS.CreateTextFile("c:\MyData.dat", True, False)
  5. For i = 1 To 100
  6.     OutStream.WriteLine 100 + Rnd()*900
  7.     Add DataValue
  8. Next
  9.  
  10. Set Outream = Nothing
  11. Set FS = Nothing
  12.  
  13. Show "Saved 100 values to data file"
  14.  
  15. End Sub
  16.