Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sr As IO.StreamWriter = New IO.StreamWriter("tmp.txt", False, System.Text.Encoding.Default)
With sr
.WriteLine("A")
.WriteLine("B")
.WriteLine("C")
End With
sr.Close()
End Sub
public Sub time_stop() '文件写入
FileOpen(1, "time.txt", OpenMode.Output)
Write(1, hour)
Write(1, min)
Write(1, sec)
dim stl="e:\xyz\333.mp3"
Write(1, stl)
FileClose(1)
End Sub