Hej

If svar = vbYes Then
Set fs = CreateObject("Scripting.FilesystemObject")
fs.deletefile Dir1.Path & "\" & File1.FileName
File1.Refresh
Else

jag har file1 som multiselect = 2 - extended och då ska alla filer som man markerat tas bort..just nu tar den bara bort en..

Jag förstår att det ska vara en loop i det hela men kommer inte på hur den ska se ut..

/bj

Du måste loopa igenom alla och se om någon är vald. Dessutom kan du använda kill istället för deletefile, så krävs inte filesystemobject.
<code>
For I = 0 To File1.ListCount - 1
If File1.Selected(I) Then
Kill Dir1.Path & "\" & File1.List(I)
End If
Next I
File1.Refresh
</code>
/Ivar

Tack!! =)

/bj