blinkme323
09-10-2008, 12:39 PM
Hi everyone,
I recently implemented the "set trial period for project" VB code that's on this site for some of my software at work. The code works great for my XP machines, but I keep getting a run-time error 75 on my Vista machines. I'm assuming that's just because the file paths are mapped differently in Vista.
I'm simply trying to hide the log file in the windows folder. The line of code I'm having a problem with is in red below:
Option Explicit
Private Sub Workbook_Open()
Dim StartTime#, CurrentTime#
'*****************************************
'SET YOUR OWN TRIAL PERIOD BELOW
'Integers (1, 2, 3,...etc) = number of days use
'1/24 = 1Hr, 1/48 = 30Mins, 1/144 = 10Mins use
Const TrialPeriod# = 30 '< 30 days trial
'set your own obscure path and file-name
Const ObscurePath$ = "C:\Windows\"
Const ObscureFile$ = "TestFileLog.Log"
'*****************************************
Any help is greatly appreciated
I recently implemented the "set trial period for project" VB code that's on this site for some of my software at work. The code works great for my XP machines, but I keep getting a run-time error 75 on my Vista machines. I'm assuming that's just because the file paths are mapped differently in Vista.
I'm simply trying to hide the log file in the windows folder. The line of code I'm having a problem with is in red below:
Option Explicit
Private Sub Workbook_Open()
Dim StartTime#, CurrentTime#
'*****************************************
'SET YOUR OWN TRIAL PERIOD BELOW
'Integers (1, 2, 3,...etc) = number of days use
'1/24 = 1Hr, 1/48 = 30Mins, 1/144 = 10Mins use
Const TrialPeriod# = 30 '< 30 days trial
'set your own obscure path and file-name
Const ObscurePath$ = "C:\Windows\"
Const ObscureFile$ = "TestFileLog.Log"
'*****************************************
Any help is greatly appreciated