[VB 6.0] Вести лог

'Каждые 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

 

« Пред.		След. »