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