text dosyasından son satırı almak

[sinanco]

Sitede "text dosyasından veri almak" konusunda vakti ile Sn. Levent Menteşoğlu'nun aşağıdaki gibi bir çözümü var.
-----------
"ornek_notepad.txt" isimli text dosyanızı "C:\excel\" isimli klasöre kaydedin. Sonrada aşağıdaki kodu bir excel dosyasında çalıştırarak deneyin.
Kod:
Sub verial()
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\excel\ornek_notepad.txt", Destination:=Range("A1"))
.TextFileCommaDelimiter = True
.Refresh BackgroundQuery:=False
End With
End Sub
-------------
Ancak benim şimdiki ihtiyacım txt dosyasının sadece son satırını almak.
Nasıl yapabilirim.?
Değerli yardımlarınız için şimdiden teşekkürler.
saygılarımla
sinanco

 

[Orion1]

Dosya yolunu ve dosya adını kendi dosyanıza göre ayarlayınız.
Referanslardan Microsoft Script Run time seçili olmalı.

Dim fs As Object ', Dosya As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set Dosya = fs.OpenTextFile("C:\Evren\deneme1.txt", ForReading)
Kayit = Split(Dosya.ReadAll, vbCrLf, , vbTextCompare)
MsgBox Kayit(UBound(Kayit) - 1)
Dosya.Close

 

[sinanco]

Sayın Evren Gizlen,
çok teşekkür ederim.
saygılarımla
sinanco

 

[Orion1]

Sayın Evren Gizlen,
çok teşekkür ederim.
saygılarımla
sinanco

Rica ederim.İyi çalışmalar.