Categories

Subscribe via Email

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

Delete files permanently

Private Sub Command1_Click()
On Error Resume Next
Dim strAsk As String
strAsk$ = MsgBox(“Are you sure you want to clear all files in your windowstemp folder?”, vbQuestion + vbYesNo, “Confirm Delete”)
If strAsk$ = vbYes Then
Kill “c:windowstemp*.*”
‘You can change what is between the quotations to any path you wish
‘The (star dot star) can be changed to a filename.
End If
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>