Categories

Subscribe via Email

Enter your email address to subscribe and receive notifications of new content by email.

delete a folder

Dim strDir As String

Private Sub Command1_Click()
On Error GoTo ErrHandler:
strDir = InputBox(“Enter the directory you wish to remove”, “Directory”)

RmDir (strDir)
MsgBox “Directory ” & strDirectory & ” has been removed”, vbSystemModal + vbOKOnly, “Directory Removed”
ErrHandler:
MsgBox “This directory does not exist, please re-enter a valid path”, vbExclamation + vbOKOnly, “Invalid Directory”
End Sub

FacebookTwitterGoogle+PinterestTumblrStumbleUponRedditLinkedInWhatsAppBibSonomyDeliciousDiggDiigoSina WeiboWordPressBlogger PostShare

Leave a Reply

  

  

  


*

You can use these HTML tags

<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>