[vb6] freefile in vista

[That Guy]

Yo,

Ik heb vb6 ent. geinstalleerd op vista, maar dit werkt niet:

dim ff as int[B]e[/B]ger
ff = freefile [COLOR="SeaGreen"]'evt. met (), dan werkt-t wel (ziet het als functie)[/COLOR]

Iemand een idee? De functie freefile([range as ...]) werkt wel, maar krijg een error.

:thumb:

 

[vanschagen]

http://www.callmap.co.uk/vb6onvista.htm
http://msdn.microsoft.com/en-us/vbrun/ms788708.aspx


sp6 voor vb6 ook al geinstaleerd?

 

[That Guy]

Die sites had ik al gevonden ja, maar kon er geen gedetailleerde info op vinden over het probleem, want alleen de ffile-functies werken dus neit echt goed.

In ieder geval, ik ga even sp6 voor vb6/ ff proberen. Hoewel ik me afvraag hoe dit kan, want het lijkt me sterk dat het met een sp te maken heeft.

:thumb:

 

[Pizara]

dim ff as intger
ff = freefile 'evt. met ()

't is ook dim ff as Integer

 

[That Guy]

oh, ja, maar dat was een typo, mijn excuus.

Het gaat er meer om dat 'freefile' niet uit het intellisense-geval komt. Op mijn XP-pc namelijk wel.

:thumb:

 

[Pizara]

Ik snap niet helemaal wat je bedoelt, en wat je wilt bereiken. Wil je een array maken van 'ff' ?

 

[That Guy]

Nee, niet echt.
Mischien wat extra info:

Op mijn XP-computer heb ik zonder enig probleem deze vb6-code kunnen gebruiken:

Dim sRC As String
Dim hfile As Long

        hfile = FreeFile
            Open App.Path & "\xx.txt" For Input As #hfile
                sRC = Input$(LOF(hfile), hfile)
            Close #hfile

Heel leuk allemaal, niet perfect, maar het gaat om het idee.

Goed. Het probleem is dus, als ik precies dezelfde code op mijn Vista-laptop intyp (nogsteeds vb6), krijg ik een error bij de regel 'hfile = FreeFile'. FreeFile bestaat niet, volgens vb6 (vista).


:thumb: