Read Only to Read Write!
Change a file from Read Only to Read - Write. Great if you put an mdb on a CD
user doesn't have to know how to make it read/write when copied to his drive.
1: Private Sub Form_Load()
2: Dim FSO
3: Dim ATT
4: Set FSO = CreateObject("Scripting.FileSystemObject")
5: Set ATT = FSO.GetFile(Me.Application.CurrentProject.Path &
6: "\UPS_DATA_CREATER.mdb")
7:
8: ATT.Attributes = 0
9: End Sub
10: where "\UPS_DATA_CREATER.mdb" = to application name
Posted by sachauncey at August 1, 2003 02:37 PM