I know this was working, but I've updated to MBS 11.2 build 16692 and I now get
an error when trying to set the custom icon flag for a folder. Here's the code
I use - f is not NIL and it is a folder.
Dim f As FolderItem
f = GetFolderItem("""/Volumes/" + LTFSVolumeName + """")
If f <> Nil And f.IsWriteable and f.Directory Then
If f.SetFolderFlagsMBS(BitwiseOr(f.GetFolderFlagsMBS, &h0400)) <> 0 Then
MsgBox "Can't set Custom Icon Flag on " + f.POSIXPath
End If
End If
A bug in the new build, or am I missing something?
Tim
_______________________________________________
Mbsplugins_monkeybreadsoftware.info mailing list
[email protected]
https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info
