VBA: LOF maximum lengte 2048 ?

Article View: be.comp.programming

Article #7006

Back to be.comp.programming Previous Next

#7006

From: Bart Vanwijnsberghe
Date: Thu, 24 Oct 2002 20:03

22 lines
1946 bytes

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

Technical Details

Message-ID: <bmYt9.177078$8o4.28363@afrodite.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-03!sn-xit-01!sn-xit-04!supernews.com!news.maxwell.syr.edu!skynet.be!skynet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: 107324,dc7e0de2aed95b63,start
X-Google-Attributes: gid107324,public
X-Google-Thread: fcea4,dc7e0de2aed95b63,start
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2002-10-24 14:32:27 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-03!sn-xit-01!sn-xit-04!supernews.com!news.maxwell.syr.edu!skynet.be!skynet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail
Reply-To: "Bart Vanwijnsberghe" <bartvanwijnsberghe@DELETE!!SPAMyahoo.com>
From: "Bart Vanwijnsberghe" <bartvanwijnsberghe@DELETE!!SPAMyahoo.com>
Newsgroups: be.comp.programming,nl.comp.programmeren
Subject: VBA: LOF maximum lengte 2048 ?
Lines: 23
MIME-Version: 1.0
Content-Type: text/plain;
 charset="utf-8"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4920.2300
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4920.2300
Message-ID: <bmYt9.177078$8o4.28363@afrodite.telenet-ops.be>
Date: Thu, 24 Oct 2002 20:03:19 GMT
NNTP-Posting-Host: 213.224.121.211
X-Complaints-To: abuse@telenet.be
X-Trace: afrodite.telenet-ops.be 1035489799 213.224.121.211 (Thu, 24 Oct 2002 22:03:19 MET DST)
NNTP-Posting-Date: Thu, 24 Oct 2002 22:03:19 MET DST
Organization: Telenet Internet