Error 70 - Permission Denied

[Bob Barnes]

FileNum = FreeFile()
N = "C:\SelfAud\ROMStL.mdb"
Open "C:\SelfAud\ROMStL.mdb" For Input As #FileNum
FileLength = LOF(FileNum)

The above code snippet has run successfully for several years. Now, when..
Open "C:\SelfAud\ROMStL.mdb" For Input As #FileNum
...runs..it goes to Error 70.

Ideas? TIA - Bob

 

[Jeanette Cunningham]

Bob,
my only experience with 'Permission Denied' was when I had the database set
up in an incorrect folder and drive on a large corporate system.
Installing the database in a different folder - which I assume was the
folder I should have used in the first place - fixed the problem.
By the way - I was trying to export to excel.


Jeanette Cunningham -- Melbourne Victoria Australia

 

[Norman Yuan]

Just very curious: why open a *.mdb file that way?

 

[Bob Barnes]

Jeanette - This is running on Form_Load on a small DB on a C: Drive.

Thank you - Bob

 

[Bob Barnes]

To display the number of bytes in a textbox.

Just very curious: why open a *.mdb file that way?

 

[Norman Yuan]

This does not answer your question, but do what you want easily, without
open the database file for file size:

Dim fileSize as long
fileSize=FileLength("C:\....\filename.mdb")

 

[Bob Barnes]

Works great..Since 1999..until now.
FileNum = FreeFile()
N = "C:\Bob\ABC.mdb"
Open "C:\Bob\ABC.mdb" For Input As #FileNum
FileLength = LOF(FileNum)
Close #FileNum
lblShowSize.Caption = "Front-end = " & Format(FileLength, "##,##") & " Bytes."