Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Create a new file

Sub MakeFile()     Open "c:\longfile.txt" For Output As #1     For c = 1 To 300         Write #1, "Field" & Format(c, "000");     Next c         Print #1,     For r = 1 To 100         For c = 1 To 300             If c <> 300 Then                 Write #1, Int(Rnd * 1000);             Else                 Write #1, Int(Rnd * 1000)             End If         Next c     Next r     Close End Sub