write date to a file and then open and compare to 30 days
I have a vb estimating program on a flash drive that can be used on laptops. To prevent the flash drive from being stolen i want the flash drive to have to be plugged iinto the main registered version every 30 days or it will not load. The usb flash drive on load will check for this file and will not load if more than 30 days or if the file does not exist.
How can i write this?
How can i write this?
Last Comment
ASKER CERTIFIED SOLUTION
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
ASKER
The datelastaccessed or modified can be reset just by opening it and saving
it. with Binary files its hard to modify the file contents
it. with Binary files its hard to modify the file contents
Visual Basic Classic
Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.
165K
Questions
--
Followers
--
Top Experts
Get a personalized solution from industry experts
TRUSTED BY
Public Function OkToRun(ByVal filename As String) As Boolean
Dim fso As New Scripting.FileSystemObject
If fso.FileExists(filename) Then
If DateDiff("d", fso.GetFile(filename).Date
Call fso.DeleteFile(filename)
Call fso.CreateTextFile(filenam
OkToRun = True
End If
End If
End Function