Rutine til........

PS den skal loop igennem til biblioteket er tomt...

Men det der skal ind imellem der sletter filer er lavet.....

Fandt selv ud af det :O)

Igen løser du dine problemer selv :O)

- Mikker

Jo men jeg sad længe med det, der er ingen der svare om natten når jeg sidder og roder med ting :O)

Brugte en usynlig FileListBox

Dim fso As New FileSystemObject, myFile
File1.Path = "c:\tester"
Do While File1.ListCount <> 0
    With File1
    .SetFocus
    .ListIndex = 0
    Set myFile = fso.GetFile(.Path & "\" & .FileName)
    myFile.Move ("c:\tester1\" & .FileName)
    End With
    File1.Refresh
Loop

BTW ved du hvor mange filer en filelistbox kan indeholde ??