Ispisivanje .log-a u VB6

heli84

Zainteresovan član
Poruka
488
Pre par godina sam napravila aplikaciju, i posto u istoj rade vise ljudi, stalno se desavaju neke ispravke i na kraju, kada dodje do neke greske, ide ona cuvena: "Ja nisam..." i resila sam da napravim log koji ce da prati ko je, kada i sta izmenio od podataka...
Kako to da uradim u VB6, da li neko moze da mi objasni...?
Znaci, ispisivanje u obicnom txt fajlu?
Hvala
 
Postoji vise nacina ali ovaj je nekako najlaksi
Probaj sledece:
Napravi neki textbox po imenu txtLog

txtLog=""
txtLog= Time$ & " " & Date$
'Deo koda....
txtLog=txtLog & vbCrLf & " OVDE PISES TEKST"
'A kada hoces da sacuvas fajl onda ukucas sledece
SacuvajLogFajl("c:\UsamljenaMalaVasDrziUSaci.log", txtLog.Text)


'Odavde prekopiraj sve ovo dole

Private Function SacuvajLogFajl(Lokacija As String, logTXT As String) As Boolean

On Error GoTo ErrorHandler
Dim iFileNumber As Integer
iFileNumber =FreeFile
Open Lokacija For Append As #iFileNumber
Print #iFileNumber, logTXT
SacuvajLogFajl = True
ErrorHandler:
Close #iFileNumber
End Function
 

Back
Top