Verplaats Routine

[rb32]

hallo mede-programmeurs,

Ik heb een probleempje en ik kom er maar NIET uit.
WAT doe ik toch verkeerd hier ?

Ik heb een verplaats-routine geschreven waarbij het bestand EERST gekopieerd wordt en daarna verwijderd.
Zie beneden ...

Wat mankeert er aan de code ?
Ik krijg namelijk iedere keer wanneer ik een paar bestanden selecteer de foutmelding: Run-time error 381
Invalid property array index

En dat geeft hij iedere keer nadat hij het EERSTE bestand gekopieerd en verwijderd heeft.
En nogmaals, ik kom er maar NIET uit, wat zit hier fout ?

Alvast hartelijk dank .....

De code:

Dim a$, i
'On Error GoTo Foutje3

For i = 0 To File1.ListCount - 1
If File1.Selected(i) = True Then
a$ = File1.List(i)

If Right$(Dir2, 1) = "\" Then

For z% = 1 To 10

FileCopy a$, Dir2 & a$

Label1.Caption = a$

ProgressBar1 = z% * 10
zz% = DoEvents()
Next z%
ProgressBar1 = 0
Label1.Caption = ""


Else

For z% = 1 To 10

FileCopy a$, Dir2 & "\" & a$

Label1.Caption = a$

ProgressBar1 = z% * 10
zz% = DoEvents()
Next z%
ProgressBar1 = 0
Label1.Caption = ""

File2.Refresh

End If
Kill a$
File1.Refresh
End If
Next
KnoppenUit

KopieerEinde3:
File2.Refresh
Exit Sub

Foutje3:
Select Case Err
Case 53
b = "BESTAND NIET GEVONDEN!"
Case 57
b = "APPARAAT INPUT/OUTPUT FOUT!"
Case 61
b = "DISK VOL!"
Case 70
b = "DE DOEL-DISKETTE IS SCHRIJFBEVEILIGD, OF U PROBEERT EEN BESTAND NAAR ZICHZELF TE VERPLAATSEN!"
Case 71
b = "DISK IS NOG NIET KLAAR!"
Case 76
b = "DIRECTORY NIET GEVONDEN!"
Case Else
b = "ONBEKENDE FOUT, FOUTNUMMER " + Str$(Err)
End Select

MsgBox b, 16
Resume KopieerEinde3

 

[rb32]

Routine

Mensen,

Ik ben er al uit ...

Die LAATSTE File1.Refresh moest eruit natuurlijk.
Stom, niet gezien, je staart je soms BLIND op iets.

Probleem dus opgelost .....


Gr.,

Richard