Excel VBA - Delete any and all .csv files in the same folder

[TropicalMagic]

Hi, I would like to delete any and all .csv files in the same folder.

However, the code isn't working as there is a run-time error 53: "File not found" at the "Kill ThisFile" line.

Sub Delete_CSV_Files()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim MyFolderPath As String
Dim ThisFile As Variant

MyFolderPath = Application.DefaultFilePath
ThisFile = MyFolderPath & Dir(MyFolderPath & "\" & "*.csv", vbNormal)

While ThisFile <> ""
Kill ThisFile
ThisFile = MyFolderPath & Dir
Wend

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Can anyone help me with the issue?

Many thanks!

 

[Logit]

Sub KillThisFile()

Dim ThisFile  As String
Dim MyFolderPath As String

MyFolderPath = Application.ActiveWorkbook.Path
ThisFile = MyFolderPath & "\" & "*.csv"

If Len(Dir$(ThisFile)) > 0 Then
    Kill ThisFile
End If

End Sub

 

[TropicalMagic]

Sub KillThisFile()

Dim ThisFile  As String
Dim MyFolderPath As String

MyFolderPath = Application.ActiveWorkbook.Path
ThisFile = MyFolderPath & "\" & "*.csv"

If Len(Dir$(ThisFile)) > 0 Then
    Kill ThisFile
End If

End Sub

Fantastic, many thanks! It was what i was looking for!

I made a minor adjustment:

Sub KillThisFile()

Dim ThisFile  As String
Dim MyFolderPath As String

MyFolderPath = Application.DefaultFilePath
ThisFile = MyFolderPath & "\" & "*.csv"

If Len(Dir$(ThisFile)) > 0 Then
    Kill ThisFile
End If

End Sub

 

[Logit]

Glad you have an answer. Cheers !