[Bug 35474] New: 'Das Fussball Studio' (VB6 based german soccer league db app) reports Run-time error '445' (needs IFile::OpenAsTextStream)

https://bugs.winehq.org/show_bug.cgi?id=35474

Bug ID: 35474
           Summary: 'Das Fussball Studio' (VB6 based german soccer league
                    db app) reports Run-time error '445' (needs
                    IFile::OpenAsTextStream)
           Product: Wine
           Version: 1.7.11
          Hardware: x86
                OS: Linux
            Status: NEW
          Severity: normal
          Priority: P2
         Component: scrrun
          Assignee: [e-mail]
          Reporter: [e-mail]
    Classification: Unclassified

Hello folks,

reported in WineHQ forums.
The user installed a large number of native components which most likely messed
up the WINEPREFIX anyway.

Prerequisite: 'winetricks -q mdac28 jet40'

A dialog window 'Persönliche Verzeichnisse erstellen' (create user folders) is
shown upon first startup.
You need to click the 'new folder' button below the browse button for each red
folder icon to become green.
After that you click left button 'Übernehmen' (apply).

--- snip ---
$ pwd
/home/focht/.wine/drive_c/Program Files/Das Fussball Studio

$ WINEDEBUG=+tid,+seh,+relay,+snoop,+variant,+ole wine ./Das\ Fussball\
Studio.exe >>log.txt 2>&1
...
0023:Call KERNEL32.GetFullPathNameW(036ef714 L"C:\users\Public\Application
Data\Das Fussball Studio\8.5.2\Zitate.xml",00000046,0380fb00,00000000)
ret=7ddc81d7
0023:Ret  KERNEL32.GetFullPathNameW() retval=00000045 ret=7ddc81d7
0023:Call KERNEL32.GetFileAttributesW(0380fb00 L"C:\users\Public\Application
Data\Das Fussball Studio\8.5.2\Zitate.xml") ret=7ddc8256
0023:Ret  KERNEL32.GetFileAttributesW() retval=00000020 ret=7ddc8256
0023:fixme:scrrun:file_OpenAsTextStream (0x157f38)->(1 0 0x33f944)
0023:CALL MSVBVM60.__vbaHresultCheckObj(<unknown, check return>) ret=01cdfd77 
...
0023:Call KERNEL32.RaiseException(c000008f,00000001,00000002,0033f840)
ret=660d0956
0023:trace:seh:raise_exception code=c000008f flags=1 addr=0x7b83a977
ip=7b83a977 tid=0023
0023:trace:seh:raise_exception  info[0]=deadcafe
0023:trace:seh:raise_exception  info[1]=deadcafe
0023:trace:seh:raise_exception  eax=7b8269e1 ebx=7b8bb000 ecx=deadcafe
edx=0033f794 esi=0033f840 edi=0033f800
0023:trace:seh:raise_exception  ebp=0033f7d8 esp=0033f774 cs=0023 ds=002b
es=002b fs=0063 gs=006b flags=00000283
0023:trace:seh:call_stack_handlers calling handler at 0x426186 code=c000008f
flags=1
0023:CALL MSVBVM60.__vbaExceptHandler(<unknown, check return>) ret=7bc867c1 
...
0023:Call user32.MessageBoxIndirectA(0033faac) ret=6606f73f 
...
0023:Call winex11.drv.SetWindowText(00010168,038117d0 L"Run-time error
'445':\n\nObject doesn't support this action") ret=7ec9f739 
--- snip ---

Source:
http://source.winehq.org/git/wine.git/blob/553078161dbddf7cca44837663ef6858a...

--- snip ---
1756 static HRESULT WINAPI file_OpenAsTextStream(IFile *iface, IOMode IOMode,
Tristate Format, ITextStream **ppts)
1757 {
1758     struct file *This = impl_from_IFile(iface);
1759     FIXME("(%p)->(%x %x %p)\n", This, IOMode, Format, ppts);
1760     return E_NOTIMPL;
1761 }
--- snip ---

'winetricks wsh57' works around.

$ sha1sum DFS_Setup_852.exe 
841d3cb8dac5077f83b97952b53a9b166c099f4e  DFS_Setup_852.exe

$ du -sh DFS_Setup_852.exe 
17M    DFS_Setup_852.exe

$ wine --version
wine-1.7.11-162-ga1b9634

Regards