davidgm
asked on
How do I set an expiration date for my Visual Basic exe
I have a vb5 program that I would like to expire in 30 days of usage. Your help is appreciated.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Dim txt As String
txt = GetSetting(UCase$(App.EXEN
If Len(txt$) Then
If DateDiff("d", Cdate(txt), Now) > 30 Then
Call DeleteSetting(UCase$(App.E
End 'you can replace this with a MsgBox and then provide limited functionality, etc.
End If
Else
Call SaveSetting(UCase$(App.EXE
End If