Jag har två fileListBox-ar, en som visar filer på diskett, och en som visar filer i en mapp på hårddisken.

Mellan de har jag två pil-knappar för att kopiera filer från disketten till hårddisken och vice versa. Hur gör jag då?

/Jermy

Detta är ett tillfälle då du inte kan ignorera felhantering. Eftersom många fel kan uppstå. T.ex. Finns redan en fil med samma namn i destinations katalogen, du har inte rättigheter, skrivfel till diskett, osv.
<code>
Private Sub Command1_Click()
Dim Index As Long
On Error GoTo Command1_Click_Err
For Index = 0 To File1.ListCount - 1
If File1.Selected(Index) Then
FileCopy File1.Path & "\" & File1.List(Index), File2.Path & "\" & File1.List(Index)
File1.Selected(Index) = False
End If
Next

Command1_Click_Exit:
Exit Sub

Command1_Click_Err:
Select Case Err.Number
Case Else
MsgBox Err.Description, vbExclamation
End Select

End Sub
</code>