Проблема такая: необходимо, чтобы через определенное время программа
просматривала папку, если там есть файлы, поочередно их обрабатывала
и стирала.
Процедура поиска и обработки работает, а стереть файл не могу :(
вроде все правильно, где ошибка?

With Application.FileSearch
.NewSearch
.LookIn = "z:\work\"
.SearchSubFolders = True
.FileName = "*.cnm"
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
str = .FoundFiles(i)
Application.FileSearch.Deletefile .FoundFiles(i) 'не работает

Next i
Else
MsgBox "There were no files found."
End If
End With

Спасибо!