lezen van bestanden

Article View: be.comp.programming

Article #15284

Back to be.comp.programming Previous Next

#15284

From: ViPeR
Date: Wed, 25 Oct 2000 00:00

37 lines
1513 bytes

ik wil 2 files (beide bmp) controleren of ze gelijk zijn hiervoor gebruik ik

stof = "c:\TS.bmp"

de file waarmee het meot gelijk zijn

hetis = 40

Loop_:
hetis = hetis + 1

ik heb files van 40 - 70 waarmee het kan gelijk zijn (genaamt 40-70)

Open stof For Binary Access Read Lock Write As #1
ReDim File1(LOF(1) - 1)
Get #1, , File1()
Close #1
Open "c:\" & hetis For Binary Access Read Lock Write As #1
ReDim File2(LOF(1) - 1)
Get #1, , File2()
Close #1
If UBound(File1) = UBound(File2) Then
For i = 0 To UBound(File1)
If File1(i) <> File2(i) Then GoTo Loop_
Next i
TS_planet1 = hetis + 1
GoTo gs_stof
End If

gs_stof:


ik krijg altijd
Run-rime error "9".
Subscritp out of range

waaraan kan dit liggen?

Technical Details

Message-ID: <GAAJ5.313$Yq.8494@afrodite.telenet-ops.be>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: 107324,607f6bc29cff0097,start
X-Google-Attributes: gid107324,public
X-Google-Thread: fcea4,607f6bc29cff0097,start
X-Google-Attributes: gidfcea4,public
From: "ViPeR" <no#tdc@lomag.net#spam>
Subject: lezen van bestanden
Date: 2000/10/25
Message-ID: <GAAJ5.313$Yq.8494@afrodite.telenet-ops.be>
X-Deja-AN: 685643771
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
X-Complaints-To: abuse@pandora.be
X-Trace: afrodite.telenet-ops.be 972477862 213.224.170.156 (Wed, 25 Oct 2000 14:44:22 MET DST)
Organization: Pandora - Met vlotte tred op Internet
X-MSMail-Priority: Normal
NNTP-Posting-Date: Wed, 25 Oct 2000 14:44:22 MET DST
Newsgroups: be.comp.programming,nl.comp.programmeren