'======================================================================================================
public Sub FileAttributes(f As String, fAttrArg As FileAttr_t)
Dim fw As FileWatcher ...
...
attrMap = fw.CheckArbitraryAttribute(pathNameSel & "\" & fileNameSel, "dos:readonly")
fAttrArg.readOnly = attrMap.GetValueAt(0)
attrMap = fw.CheckArbitraryAttribute(pathNameSel & "\" & fileNameSel, "dos:system")
fAttrArg.system = attrMap.GetValueAt(0)
attrMap = fw.CheckArbitraryAttribute(pathNameSel & "\" & fileNameSel, "dos:archive")
fAttrArg.archived = attrMap.GetValueAt(0)
attrMap = fw.CheckArbitraryAttribute(pathNameSel & "\" & fileNameSel, "dos:hidden")
fAttrArg.hidden = attrMap.GetValueAt(0)