|
|
Our Hot Pick: Rising Antivirus 2006 - Certified by TUV & Checkmark! Get 10% discount by entering this coupon code: ONDISCOUNT10
Hi all
My VB6 app scans a folder for MS Access files, and I need to ascertain
whether a found file has a password protected VB Project. My current
code is:
Dim objAccess As New Access.Application
Dim blnProtected as Boolean
objAccess.OpenCurrentDatabase FileName
blnProtected = (objAccess.VBE.VBProjects(1).Protection =
vbext_pp_locked)
Is this correct? Is there a better test for project protection? Note
that 1 may not be the correct index for VBProjects.
Thanks in advance
Paul Martin
Melbourne, Australia
|
|
|