ما هو الخطاء في هذا الكود؟

السلام عليكم ورحمة الله وبركاته

الكود التالي لحفظ الشجرة الى ملف.

المشكلة هي انه يحفظ العناوين فقط ولا يحفظ الأسطر،

فأرجو تعديله بحيث يحفظ العناوين والأسطر

وشكرا

	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		Dim a As String
		Dim count As Short

		a = My.Application.Info.DirectoryPath
		If VB.Right(a, 1) <> "\" Then a = a & "\"
		a = a & "mytree.txt"
		If Dir(a) <> "" Then Kill(a)

		FileOpen(1, a, OpenMode.Output)

		count = 0
		Do Until count = TreeView1.Nodes.Count '+ 1
			If TreeView1.Nodes.Item(count).FullPath = TreeView1.Nodes.Item(count).Text Then

				PrintLine(1, TreeView1.Nodes.Item(count).FullPath)

			Else
				PrintLine(1, TreeView1.Nodes.Item(count).Text)
			End If
			count = count + 1

		Loop

		FileClose(1)

	End Sub