79366419

Date: 2025-01-18 01:11:47
Score: 1.5
Natty:
Report link

Based on this thread:

NewFilePath = PathNoExtension & "pdf"
If Dir(NewFilePath) <> "" Then
    Dim res As Long
    res = GetAttr(NewFilePath)
    If res = 33 Then
        MsgBox "File is read only"
        Exit Sub
    End If
End If
Reasons:
  • Probably link only (1):
  • Low length (0.5):
  • Has code block (-0.5):
  • Low reputation (0.5):
Posted by: JeromeP