تقسیم یک فایل txt

[mehr83]

یک فایل txt‌ دارم که شامل چندین هزار سطر هست. (سطرها با اینتر از هم جدا شده‌اند)
میخوام این فایل رو بگیرم و به چندین فایل txt جداگانه تقسیم کنم
طوری که مثلا در هر فایل 500 سطر وجود داشته باشه
من اصلا با فایل‌ها کار نکردم
چه کدی باید بنویسم؟

----------------------------------------------------------------------
فروش ويژه مجموعه كامل محصولات آموزش برنامه نويسي AppDev
Asp.NET , Visual Basic.NET , Visual C#.NET , SQL Server 2008 , Web Service , LINQ , Html , Xml , SharePoint
اطلاعات بيشتر در
http://sadrasystem.org (http://sadrasystem.org/)

[#target]

قطعه برنامه زیر باعث می شه فایل In.txt از درایو C باز بشه و هر 500 خط اون توی یک فایل با نام out0 , out 1 , out2 , ... outn نوشته بشه


Dim s1 As String
Dim i, j As Integer
i = 0
j = 0
Dim mystr As System.IO.StreamReader = File.OpenText("C:\In.Txt")
Dim strwriter As System.IO.StreamWriter = File.AppendText("C:\Out0" + ".Txt")
While Not mystr.EndOfStream
If i = 500 Then
strwriter.Close()
j = j + 1
i = 0
strwriter = File.AppendText("C:\Out" + CStr(j) + ".Txt")
End If
s1 = mystr.ReadLine
strwriter.WriteLine(s1)
strwriter.Flush()
i = i + 1
End While