No, I never got MBS to work. This is from the forum:
Public Function GetBookmarkData(f as FolderItem, relativeTo as FolderItem = nil, Mode as Integer = 0) As String
#Pragma Unused mode
//# Mimicks (better) FolderItem.GetSaveInfo with modern system calls. Mode is actually not used. The bookmark will be relative if and only if you set a RelativeTo FolderItem.
declare function NSClassFromString Lib CocoaLib (aClassName as CFStringRef) As Ptr
declare function URLWithString lib CocoaLib selector "URLWithString:" (cls as Ptr, URLString as CFStringRef) as Ptr
declare function BookmarkDataWithOptions lib CocoaLib selector "bookmarkDataWithOptions:includingResourceValuesForKeys:relativeToURL:error:" (id as Ptr, options as Integer, rsrc as Ptr, relativeTo as Ptr, byref error as Ptr) as Ptr
declare function DataLength lib CocoaLib selector "length" (id as Ptr) as integer
declare sub DataBytes lib CocoaLib selector "getBytes:length:" (id as Ptr, dest as Ptr, length as integer)
const CocoaLib = "Cocoa.framework"
dim url as Ptr = URLWithString(NSClassFromString("NSURL"), f.URLPath)
dim relativeNSURL as Ptr
dim err as Ptr
if relativeTo <> nil then
relativeNSURL = URLWithString(NSClassFromString("NSURL"), relativeTo.URLPath)
end if
dim data as Ptr = BookmarkDataWithOptions(url, 0, nil, relativeNSURL, err)
if data <> nil then
dim L as integer = DataLength(data)
dim mb as new MemoryBlock(L)
DataBytes data, mb, L
return EncodeBase64(mb.StringValue(0, L))
end if
End Function
Public Function ResolveBookmark(data as String, relativeTo as FolderItem = nil) As Folderitem
//# Resolves a bookmark and returns the corresponding FolderItem. If you created a relative Bookmark, you MUST provide the same RelativeTo parameter as during creation.
data = DecodeBase64(data)
declare function NSClassFromString Lib CocoaLib (aClassName as CFStringRef) As Ptr
declare function URLWithString lib CocoaLib selector "URLWithString:" (cls as Ptr, URLString as CFStringRef) as Ptr
declare function URLByResolvingBookmarkData lib CocoaLib selector "URLByResolvingBookmarkData:options:relativeToURL:bookmarkDataIsStale:error:" (cls as Ptr, data as Ptr, options as integer, relativeto as Ptr, byref stale as Boolean, byref err as Ptr) as Ptr
declare function DataWithBytes lib CocoaLib selector "dataWithBytes:length:" (cls as Ptr, bytes as Ptr, length as integer) as Ptr
declare function absoluteString lib CocoaLib selector "absoluteString" (id as Ptr) as CFStringRef
dim url as Ptr
dim relativeNSURL as Ptr
dim stale as boolean
dim err as Ptr
if relativeTo<>nil then
relativeNSURL = URLWithString(NSClassFromString("NSURL"), relativeTo.URLPath)
end if
dim mb as MemoryBlock = data
dim nsdata as Ptr = DataWithBytes(NSClassFromString("NSData"), mb, mb.size)
url = URLByResolvingBookmarkData(NSClassFromString("NSURL"), nsdata, 0, relativeNSURL, stale, err)
if url <> nil then
return new FolderItem(absoluteString(url), FolderItem.PathModes.URL)
end if
End Function
