CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to check the given file is read only
Private Declare Function GetFileAttributes Lib "kernel32.dll" Alias "GetFileAttributesA" _
    (ByVal lpFileName As String) As Long
Const READONLY = &H1
 
Private Function CheckIfReadOnly(ByVal FilePathAndName As String) As Boolean
    attr = GetFileAttributes(FilePathAndName)
    If (attr And &H1) = &H1 Then
        CheckIfReadOnly = True
    Else
        CheckIfReadOnly = False
    End If
End Function