VB.net 如何刪除txt檔裡的第一行資料

Imports System.IO

Dim data As String
Dim firstline As Boolean = True
Dim sr As StreamReader = New StreamReader("c:\data.txt")
Dim sw As StreamWriter = New StreamWriter("c:\data2.txt")

Do Until sr.EndOfStream
data = sr.ReadLine()
If firstline Then
firstline = False
Else
sw.WriteLine(data)
End If
Loop
sw.Flush()
sw.Close()
sr.Close()

c#的寫法
string myPath = @"C:\\123.txt";
string tmp = File.ReadAllText(myPath);
File.WriteAllText(myPath,tmp.Substring(tmp.IndexOf('\\n')+1));
vb應該差不多才是

讀進記憶體, 然後用以分行符號切割為 String array, array的第一個元素移除, 覆蓋寫回文字檔. 結束