File Path VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. File Path
  4. 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