Imports System.IO
public class Test
public Shared Sub Main
Dim objSW As StreamWriter
Dim objFS As FileStream
Dim dteBDate As Date = #2/8/1960 1:04:00 PM#
objFS = New FileStream("test.txt", FileMode.Create)
objSW = New StreamWriter(objFS)
With objSW
.WriteLine(9.009)
.WriteLine(1 / 3)
.Write("The current date is ")
.Write(Now())
.WriteLine(True)
.WriteLine("Your age in years is {0}, in months is {1}, " & _
"in days is {2}, and in hours is {3}.", _
DateDiff(DateInterval.Year, dteBDate, Now), _
DateDiff(DateInterval.Month, dteBDate, Now), _
DateDiff(DateInterval.Day, dteBDate, Now), _
DateDiff(DateInterval.Hour, dteBDate, Now))
.Close()
End With
objFS.Close()
End Sub
End class
|