• Home
 · 
• Files/File Controls/Input/Output
 · 
• A Delete All files in a Directory and then Delete the DIrectory A

A Delete All files in a Directory and then Delete the DIrectory A

Code Deletes a File and Directory, Note YOu DOnt Have to Reference Ms Scripting Runtime Please Vote for me if this helps you out or if you think it is a good code!!!!! Thank you Sean For letting me know you don't Have to reference Ms Scripting

Rate A Delete All files in a Directory and then Delete the DIrectory A

• 1
• 2
• 3
• 4
• 5

(24(24 Vote))

'you can't just delete an exe with this by itself but it can delete an exe in a directory
'Please vote if you like this code!!
Public Sub DelAll(ByVal DirtoDelete As Variant)
Dim FSO, FS
Set FSO = CreateObject("Scripting.FileSystemObject")
FS = FSO.DeleteFolder(DirtoDelete, True)
End Sub
'so like
Private Sub Command1_Click()
Call delall("c:\") 
'that would delete the c:\ drive
End Sub
'if you need more help e-mail me at 
'[email protected]