VBS. Копирование файлов с определенным расширением в другую папку

Question

У меня есть этот код:

For Each sFile In oFSO.GetFolder(sOriginFolder).Files 
If Not oFSO.FileExists(sDestinationFolder & "\" & oFSO.GetFileName(sFile)) Then 
oFSO.GetFile(sFile).Copy sDestinationFolder & "\" & oFSO.GetFileName(sFile),True 
End If 
Next 

И я хотел бы добавить условие, чтобы сказать, что я просто хочу, чтобы скопировать его, когда файл является .txt файл. Спасибо.

Answer 1

Попробуйте так:

For Each sFile In oFSO.GetFolder(sOriginFolder).Files 
If LCase(oFSO.GetExtensionName(sFile)) = "txt" Then 
    If Not oFSO.FileExists(sDestinationFolder & "\" & oFSO.GetFileName(sFile)) Then 
     oFSO.GetFile(sFile).Copy sDestinationFolder & "\" & oFSO.GetFileName(sFile),True 
    End If 
End If 
Next