file Deletion

Hi there ...

I have a small prob in my code ...

I have a folder name and a list of file extensions

now I want to delete all the files with those particular extensions

these files can also be in the subfolders of the pathfolder...

how should I do it?

Its urgent...

Regards,

Nahush

VB Code:

Kill "c:\vbfiles\*.txt"

I imagine one of the easier ways would be to use FSO, though not the most desirable sometimes...

VB Code:

Private Sub Command1_Click()
Dim fso As New FileSystemObject
    
    Call EnumDelete(fso.GetFolder("C:\"), "*.tmp")
 
    Set fso = Nothing
    
End Sub
 
Private Sub EnumDelete(Path As Folder, DeletePattern As String)
Dim fld As Folder
 
    On Error Resume Next
        Kill Path.Path & DeletePattern
    On Error GoTo 0
 
    For Each fld In Path.SubFolders
        Call EnumDelete(fld, DeletePattern)
    Next
    
End Sub

Add a reference to the Microsoft Scripting Runtime.

hi there

does kill also deletes all the those particular files from the

sub directories also?

my prob is those file s can be in sub folders of the foler...

Nahush

You would have to loop through all sub folders killing the specified extension on its loop. Not sure how, but the idea would be to kill like:

Folder
---File1
---File2
---Sub Folder
------File3
------Sub Folder
---------File4
---------File5

etc, how about a look on Planet Source Code?

Guff to that, just look a couple of posts up.

:mad: