Function BrisiFile(Putanja As String)
Dim fs
Dim i As Integer
    
Set fs = Application.FileSearch
With fs
    .LookIn = Putanja
    .FileType = 1
    If .Execute > 0 Then
        For i = 1 To .foundfiles.Count
        Kill .foundfiles(i)
        Next i
    End If
End With
End Function