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
Original Author: David Stewart Williams
Code
'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
'exhibitworks@yahoo.com
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.