Module Module1 Sub Main() Dim counter As Integer = 1 Dim writer As System.IO.StreamWriter = System.IO.File.AppendText(C:\Documents and Settings\Administrator\My Documents\VB p_files\number_list.dat") For counter = 1 To 100 writer.WriteLine(counter) Next writer.Close() 'pause line Console.WriteLine("Press enter to continue...") Console.ReadLine() End Sub End Module
StreamWriter
append
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)