[EXCEL] Kill FSO or API

[agmorgan]

I want to remove all xml files in a temporary directory before proceeding with my macro.
What is the preferred method?
Kill is a one liner but will throw a run time error if there are no xml files in the directory.

Kill c:\tmp\*.xml

FSO will require a runtime dependency (although I already have Scripting Runtime for Dictionary)

Public Sub DeleteFiles(strFolderName As String, strType As String)
    Dim fso As Scripting.FileSystemObject
    Dim fsoDir As Scripting.Folder
    Dim fsoFile As Scripting.File

    Set fso = New Scripting.FileSystemObject
    Set fsoDir = fso.GetFolder(strFolderName)


    For Each fsoFile In fsoDir.Files
        If fsoFile.Type = strType Then
            fsoFile.Delete
        End If
    Next fsoFile

End Sub

Not familiar with the API to delete all files of a certain type in a directory.

[westconn1]

you can use kill, just check if file exists first
if len(dir("c:\tmp\*.xml"))>0 then kil l"c:\tmp\*.xml"

[Siddharth Rout]

Or you can use this... One situation where there is no harm in using On Error Resume Next

'~~> If File not found ignore error
On Error Resume Next
 
Kill "c:\tmp\*.xml"
 
'~~> Immediately set it back to normal
On Error GoTo 0