dcsimg
Login | Register   
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


Tip of the Day
Language: Visual Basic
Expertise: Beginner
Apr 26, 2001

WEBINAR:

On-Demand

Application Security Testing: An Integral Part of DevOps


Another Way to Delete Files or Filetypes


This routine uses all the good stuff that FileSystemObject offers.

Here it is:
 
Public Sub DeleteFiles(ByVal strPath As String, ByVal strExtension As 
String) 

    Dim fsoMain As Scripting.FileSystemObject 
    Dim folToDeleteFrom As Scripting.Folder 
    Dim fleToDelete As Scripting.File 
    
    On Error GoTo ErrorHandler 
    
    ' Init 
    Set fsoMain = New FileSystemObject 
    
    ' Check if folder exists 
    If fsoMain.FolderExists(strPath) Then 
        Set folToDeleteFrom = fsoMain.GetFolder(strPath) 
        
        ' Loop through all files and delete the ones with matching 
extensions 
        For Each fleToDelete In folToDeleteFrom.Files 
            If strExtension = fsoMain.GetExtensionName(fleToDelete.Path) 
Then 
                fleToDelete.Delete 
            End If 
        Next fleToDelete 
    Else 
        ' Here you could raise an error 
    End If 
    
    Set fleToDelete = Nothing 
    Set folToDeleteFrom = Nothing 
    Set fsoMain = Nothing 
    
    Exit Sub 

ErrorHandler: 
    Set fleToDelete = Nothing 
    Set folToDeleteFrom = Nothing 
    Set fsoMain = Nothing 
    ' Do the stuff you need to do here (raise error, MsgBox, log,...) 

End Sub 

And it should be used like this:
 
DeleteFiles 
Jan Buskens
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date