file Deletion

[nahush]

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

[Bombdrop]

Kill "c:\vbfiles\*.txt"

[crptcblade]

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

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.

[nahush]

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

[Madboy]

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?

[crptcblade]

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