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

VBS。将具有特定扩展名的文件复制到另一个文

1 个答案: