Oberon Thumbnailer and X6

[knowbodynow]

Hello, has anyone got this macro to work with X6? I tried updating the declare functions with PtrSafe until I was only finding one error. Here's the whole section with the error flagged when compiling:

Public Function BrowseForFolder(ByVal hWnd As Long, ByVal Title As String, ByVal StartDir As String) As String
    Dim lpIDList As Long
    Dim szTitle As String
    Dim sBuffer As String
    Dim tBrowseInfo As BrowseInfo
    
    m_CurrentDirectory = StartDir & vbNullChar
    
    szTitle = Title
    With tBrowseInfo
        .hWndOwner = hWnd
        .lpszTitle = lstrcat(szTitle, "")
        .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN + BIF_STATUSTEXT + BIF_USENEWUI
        .lpfnCallback = GetAddressOfFunction(AddressOf BrowseCallbackProc)
    End With
    
    lpIDList = SHBrowseForFolder(tBrowseInfo)
    If lpIDList Then
        sBuffer = Space$(MAX_PATH)
        SHGetPathFromIDList lpIDList, sBuffer
        sBuffer = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
        BrowseForFolder = sBuffer
        CoTaskMemFree lpIDList
    Else
        BrowseForFolder = ""
    End If
    
End Function

The error is Type mismatch. Does anyone know how to fix this, thanks.

[ddonnahoe]

Why can't you substitute...

CorelScriptTools.GetFolder

Shouldn't it do the same thing as BrowseForFolder sub?

[knowbodynow]

Thanks, I tried your suggestion and it seems to be working.

[prashant3975]

can i have full code or Macro

As i am also having same Problem

[shelbym]

Hello all,

Until the official release from Alex, I have made an unofficial release that should get things working in X6. :-) If you have problem, please let me know.

-Shelby

[CobyMac]

I would love to have this working in CorelDraw 2018. Do you know of a version that works?