• Home
 · 
• VB function enhancement
 · 
• Get and Save how many times your prog was loaded

Get and Save how many times your prog was loaded

This code will allow you to Save & Get how many times your program has been loaded.
Add a few lines of code to your program's main forms' load procedure. Very easy to understand.

Returns
Returns as Long

Rate Get and Save how many times your prog was loaded

• 1
• 2
• 3
• 4
• 5

(15(15 Vote))

Public Sub SetLoaded()
'put this in your main forms' Load procedure
'this will set the count
Dim lTemp As Long, sPath As String
lTemp& = GetLoaded&
If Right$(App.Path, 1) <> "\" Then sPath$ = App.Path & "\" & App.EXEName & ".tmp" Else sPath$ = App.Path & App.EXEName & ".tmp"
Open sPath$ For Output As #1
Print #1, lTemp& + 1
Close #1
End Sub
Public Function GetLoaded() As Long
'call this to get how many times program has been loaded
On Error Resume Next
Dim sPath As String, sTemp As String
If Right$(App.Path, 1) <> "\" Then sPath$ = App.Path & "\" & App.EXEName & ".tmp" Else sPath$ = App.Path & App.EXEName & ".tmp"
Open sPath$ For Input As #1
sTemp$ = Input(LOF(1), #1)
Close #1
If sTemp$ = "" Then GetLoaded& = 0 Else GetLoaded& = CLng(sTemp$)
End Function
'works well
'DoWnLoHo