27 Февраль 2009

Как вести лог файл, допустим каждые 5 секунд?

Файл |  Таги:

Как вести лог файл, допустим каждые 5 секунд?

'Каждые 5 секунд будет производиться запись в файл
Option Explicit
Dim strInfo As String
Dim FilneNum As Byte

Private Sub Form_Load()
Timer1.Interval = 5000
End Sub

Private Sub Timer1_Timer()
strInfo = Now
FilneNum = FreeFile
Open App.Path & "\log.lg" For Append As #FilneNum
    Print #FilneNum, strInfo
Close #FilneNum
End Sub

Запись опубликована on 27.02.2009 at 9:00 и размещена в рубрике: Файл. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.