🚀 go-pugleaf

In article <bmYt9.177078$8o4.28363@afrodite.telenet-ops.be>, 
bartvanwijnsberghe@DELETE!!SPAMyahoo.com says...
> Ik zou moeten een file inlezen in een tekstbox in Access XP. Ik heb daarvoor
> volgende code:
> 
> Private Sub Form_Load()
>     Dim file As String
>     file = "D:\Mijn documenten\testAccess\test.html"
>     Open file For Input As #1
>     FileLength = LOF(1)
>     Debug.Print FileLength
>     mailtekst.SetFocus
>     mailtekst.Text = Input(LOF(1), #1)
>     Close
> End Sub
> 
> LOF mag blijkbaar maar 2048 zijn.  Als er meer dan 2048 tekens zijn in mijn
> bestand krijg ik de fout: "Fout 2176 tijdens uitvoering: De instelling voor
> deze eigenschap is te lang".
> 
> Is er een andere mogelijkheid om een grotere file in te lezen ?
> 
> mvg
> Bart
> 
> 
je zou dit kunnen doen met het FileSystemObject
Leg een reference naar Microsoft Scripting Runtime (scrrun.dll)
dan...
Function GetFile as string
	dim fs as new filesystemobject
	dim ts as textstream
	dim strTekst as string

	set ts=fs.opentextfile("mijnfile.txt")
	do until ts.atendofstream
		strtekst = ts.readline			
	loop

	getfile = strtekst	
	ts.close
	set ts=nothing
	set fs=nothing
end Sub

Probeer dit eens?

mvg, K.