خواندن خط دوم هر فایل متنی در پوشه

[Overhere]

سلام
من یه کد نوشتم که میخوام خط دوم هر فایل تکست که داخل پوشه encrypted هستش رو بخونه و به لیست باکس اضافه کنه... آیا این کد درسته؟

For Each fi As String In FileIO.FileSystem.ReadAllText(My.Application.Info. DirectoryPath & "\Encrypted")
Dim first As String = System.IO.File.ReadAllLines(fi)(1)
ListBox2.Items.Add(first)
Next

[bitasoft.ir]

سلام
بهتره از دستور



file.ReadLine()


به همراه یک شمارنده استفاده کنین.

[aliagamon]

سلام
بهتره از دستور



file.ReadLine()


به همراه یک شمارنده استفاده کنین.
نه عزیزم راه منطقی داره:

System.IO.File.ReadLines("log.txt").ElementAt(1)

[Overhere]

دوستان مشکل من توی خط اول هستش بیغام Access To The Path Denied میدهد.
For Each fi As String In FileIO.FileSystem.ReadAllText(My.Application.Info. DirectoryPath & "\Encrypted")

[Overhere]

??????????دوستان کمک کنین.