letakan code berikut dimana saja bisa.
Set FSO = CreateObject("Scripting.FileSystemObject")
Set file = FSO.OpenTextFile("D:\Data Taufik\My Aplikasi\Check jumlah Error\Log\EventLog.2015.01.09.txt", 1)
file.ReadAll
'subtract one ReadAll stops at the first blank line
MsgBox (file.Line) - 1
Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa
No comments:
Post a comment