Remove a directory from your hard drive
Remove a directory from your hard drive
Rate Remove a directory from your hard drive
(1(1 Vote))
Private Sub Command1_Click ()
'remove specified directory
On Error Goto ErrHandler:
strDirectory = InputBox("Enter the directory you wish to remove","Directory")
'remove directory
RmDir (strDirectory)
Msgbox "Directory " & strDirectory & " has been removed", vbSystemModal + vbOkOnly, "Directory Removed"
ErrHandler:
Msgbox Err.Number & "This directory does not exist, please re-enter a valid path", vbExclamation + vbOkOnly,"Invalid Directory"
End Sub
Remove a directory from your hard drive Comments
No comments yet — be the first to post one!
Post a Comment