This is what I have now:

[VBA]'If the user hasn't set a Default Directory
wbFileName = Application.GetSaveAsFilename

On Error GoTo SaveBook
If wbFileName = "False" Then
MsgBox "The file was not saved."
errUpdateLogFile "SaveCode-NoSave"
Exit Sub
End If

SaveBook:

'Get the User specified directory
stgSelectedDirectory = Left(wbFileName, InStrRev(wbFileName, "\") - 1)

'Check if Directory the user is trying to save in is Read-Only
If GetAttr(stgSelectedDirectory) And vbReadOnly Then
MsgBox "Test"
End If[/VBA]

Unfortunately, it isn't working.