Is it read-only? 1

[nagyf]

How can I check in simplest way whether the current database file is read-only because the file itself is such or the it was opened by so from the command line?
[tt]
Ferenc Nagy
|\ /~ ~~|~~~ nagyf@alpha0.iki.kfki.hu Fax: (36-1)-392-2529 New!
| \ | | Institute of Isotope and Surface Chemistry
| \ | -+- 1525 Bp. POB 77. Tel. 36-1)-392-2550
| \| |

http://alpha0.iki.kfki.hu/~nagyf

`-' ' `-' "The goal of the life is the struggle itself"
[/tt]

 

[VBslammer]

Function ReadOnlyDB() As Boolean

    Dim db As Database
    Set db = CurrentDb

    ReadOnlyDB = Not db.Updatable

End Function

VBSlammer

 

[nagyf]

Thank you, VBSlammer.

One more related question:

How can I check that the database or a folder is on a read-only device, like a CD? [tt]
Ferenc Nagy
|\ /~ ~~|~~~ nagyf@alpha0.iki.kfki.hu Fax: (36-1)-392-2529 New!
| \ | | Institute of Isotope and Surface Chemistry
| \ | -+- 1525 Bp. POB 77. Tel. 36-1)-392-2550
| \| |

http://alpha0.iki.kfki.hu/~nagyf

`-' ' `-' "The goal of the life is the struggle itself"
[/tt]

 

[VBslammer]

Here is a simplistic method to check a file using its full path as an argument:

Function IsFileReadOnly(ByVal strFullPath As String) As Boolean

  Dim strFilename As String
  strFilename = Dir(strFullPath)
  
  If Len(strFilename) > 0 Then
    If GetAttr(strFullPath) And vbReadOnly Then
      IsFileReadOnly = True
    End If
  End If
  
End Function

VBSlammer