Error 70 - Permission Denied

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Bob Barnes - 16 May 2008 23:01 GMT

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

Reply to this Message

Jeanette Cunningham - 16 May 2008 23:16 GMT

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

> FileNum = FreeFile()
> N = "C:\SelfAud\ROMStL.mdb"
[quoted text clipped - 7 lines]
>
> Ideas? TIA - Bob

Reply to this Message

Bob Barnes - 16 May 2008 23:43 GMT

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

Thank you - Bob

> Bob,
> my only experience with 'Permission Denied' was when I had the database set
[quoted text clipped - 16 lines]
> >
> > Ideas? TIA - Bob

Reply to this Message

Norman Yuan - 16 May 2008 23:38 GMT

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

> FileNum = FreeFile()
> N = "C:\SelfAud\ROMStL.mdb"
[quoted text clipped - 7 lines]
>
> Ideas? TIA - Bob

Reply to this Message

Bob Barnes - 17 May 2008 02:18 GMT

To display the number of bytes in a textbox.

> Just very curious: why open a *.mdb file that way?
>
[quoted text clipped - 9 lines]
> >
> > Ideas? TIA - Bob

Reply to this Message

Norman Yuan - 17 May 2008 16:45 GMT

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")

> To display the number of bytes in a textbox.
>
[quoted text clipped - 11 lines]
>> >
>> > Ideas? TIA - Bob

Reply to this Message

Bob Barnes - 18 May 2008 02:01 GMT

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."

> This does not answer your question, but do what you want easily, without
> open the database file for file size:
[quoted text clipped - 17 lines]
> >> >
> >> > Ideas? TIA - Bob

Reply to this Message