Visual Basic Programming Code Examples Visual Basic > Files Directories Drives Code Examples Delete all files in given directory Delete all files in given directory 'Deleting files in directory 'make a new project; a drive/dir & file control 'insert the next code (use Insert/File) 'press F5 '---------------- code --------------------- Private sub DeleteFilesinDirectory() dim t% If File1.ListCount - 1 = 0 Then exit Sub list1.Clear For t% = 0 To File1.ListCount - 1 File1.ListIndex = t% File1.Selected(t%) = True list1.AddItem File1 Next t% dim antwoord antwoord = MsgBox("Are you sure about this?", 36) If antwoord <> 6 Then exit Sub For t% = list1.ListCount - 1 To 0 step -1 list1.ListIndex = t% list1.Selected(t%) = True Kill Dir1 & "\" & list1 Next t% End Sub Private sub Dir1_Change() File1 = Dir1.Path Call DeleteFilesinDirectory End Sub Private sub Drive1_Change() Dir1 = Drive1 End Sub Return