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