Am 12.07.2011 um 22:57 schrieb Tim Jones:
> 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.
this works fine here with folder named test
Dim f As FolderItem
f = GetFolderItem("test")
If f <> Nil And f.IsWriteable and f.Directory Then
If f.SetFolderFlagsMBS(BitwiseOr(f.GetFolderFlagsMBS, 4)) <> 0 Then
MsgBox "Can't set Custom Icon Flag on " + f.UnixpathMBS
End If
End If
icon turns green. So I bet you have a permission error or an invalid path or
something like that.
PS: GetFolderItem has a second parameter where you should pass PathTypeShell.
Greetings
Christian
--
Read our blog about news on our plugins:
http://www.mbsplugins.de/
_______________________________________________
Mbsplugins_monkeybreadsoftware.info mailing list
[email protected]
https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info
