Sub App_Start FileSearch(ArrayList1,AppPath,"nlRebo*.bar") For i = 0 To ArrayList1.Count-1 FileDel(ArrayList1.Item(i)) Next ArrayList1.Clear End Sub