Dim x As String = "test, test1, test2"
Dim txt() As String = x.Split(",")
Dim sw As StreamWriter
Dim dt As String = convertDate(DateTime.UtcNow)
sw = File.CreateText("D://File " + dt + ".txt")
For Each item In txt
sw.WriteLine(item)
Next
sw.Close()
Subscribe to:
Post Comments
(
Atom
)
0 ulasan :
Post a Comment