🚀 go-pugleaf

> 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?

Aan een typo? Je posting zit er anders ook vol mee. :)

Ronald


Sent via Deja.com http://www.deja.com/
Before you buy.