Удаление файлов из Excel в папке VBA

Question

Я хочу удалить файлы без Excel в папке с помощью VBA.

Это код, который я нашел отсюда: Excel Delete Files.

Dim fName As String 
fName = Dir("C:\test\*.*") 
Do While fName <> "" 
    If fName <> "fileA.xls" Then'or .txt or .csv or whatever 
     Kill "C:\test\" & fName 
    End If 
    fName = Dir 
Loop 

Я изменил код так:

folderPath = Dir("C:\test\") 
Do While folderPath <> "" 
    If folderPath <> "*.xls" Then'or .txt or .csv or whatever 
    Kill "C:\test\" & folderPath 
    End If 
    folderPath = Dir 
Loop 

Это дает мне ошибку говоря файл не найден. Но у меня есть файл в папке, которую нужно удалить.

Нужно руководствоваться этим.

Answer 1

Использование нижеследующего должно выполняться по мере необходимости. Обратите внимание, что лучше использовать оператор Like для сравнения частичных строк, в этом случае оператор Not ищет только те, которые не совпадают.

strFileName = Dir("C:\test\*") 
Do While strFileName <> "" 
    If Not lcase$(strFileName) Like "*.xls" Then 'or .txt or .csv or whatever 
    Kill "C:\test\" & strFileName 
    End If 
    strFileName = Dir 
Loop 

Обратите внимание, если вы хотите, чтобы игнорировать все файлы Excel затем рассмотреть альтернативные расширения и явно учитывать их с And следующим образом:

If Not lcase$(strFileName) Like "*.xls" And Not lcase$(strFileName) Like "*.xlsx" Then

Вспоминая .txt, .csv,. xlsm и т. д.