在 Vbs 脚本中使用 Xcopy 但跳过复制的文件

Question

Set oShell = CreateObject("WScript.Shell")
strCommand = oShell.Run("Xcopy ""p:\"" ""d:\12"" /S /Y", 0, True)
If strCommand <> 0 Then
MsgBox "Error: Not_Copy" & strCommand
Else
MsgBox "Copy_Done"

End If

---

我使用上面的 vb 脚本将我的所有数据从笔式驱动器复制到“d:\12”文件夹。我有一个问题。

很多时候，我在 pendrive 中有相同文件夹路径的相同文件，例如“p:\”中的“java-setup.exe”以及“d:\12”中的“java-setup.exe”。 当我播放这个VBScript文件时，它会替换所有文件，浪费了很多时间。

是否有任何选项使其停止替换文件（跳过已复制的文件），而只关注那些未复制的文件？

我是脚本新手，初学者。所以请给直接编码，不要这样，

$srcdir = "\\server\source\";
$destdir = "C:\destination\";
$files = (Get-ChildItem $SrcDir -recurse -filter *.* | where-object {-not ($_.PSIsContainer)});
$files|foreach($_){
if (!([system.io.file]::Exists($destdir+$_.name))){
            cp $_.Fullname ($destdir+$_.name)
};

很多时候看不懂。

我的笔式驱动器路径是“p:\”，我必须复制的文件是“d:\12”

请提供脚本。

Answer 1

我找不到满足您需要的XCOPY 开关。不过，这个 VBScript 应该可以工作。

With CreateObject("Scripting.FileSystemObject")
    For Each File In .GetFolder("P:\").Files
        If Not .FileExists("D:\12\" & File.Name) Then
            .CopyFile File.Path, "D:\12\" & File.Name
        End If
    Next
End With

Answer 2

是的，正如其他人所说，xcopy 不支持这一点。但是有批处理命令可以。

将其放入（“CopyWithoutReplace.bat”）

For %%F In ("P:\*.*") Do If Not Exist "D:\12\%%~nxF" Copy "%%F" "D:\12\%%~nxF"

还有你修改​​过的脚本：

Set oShell = CreateObject("WScript.Shell")
strCommand = oShell.Run("P:\CopyWithoutReplace.bat", 0, True)
If strCommand <> 0 Then
MsgBox "Error: Not_Copy" & strCommand
Else
MsgBox "Copy_Done"
End If

你也可以使用Robocopy：

Robocopy 或“Robust File Copy”是一个命令行目录复制命令。从 Windows NT 4.0 开始，它已作为 Windows 资源工具包的一部分提供，并作为 Windows Vista、Windows 7 和 Windows Server 2008 的标准功能引入。

Or you could use Powershell

$srcdir = "\\server\source\";
$destdir = "C:\destination\";
$files = (Get-ChildItem $SrcDir -recurse -filter *.* | where-object {-not ($_.PSIsContainer)});
$files|foreach($_){
if (!([system.io.file]::Exists($destdir+$_.name))){
            cp $_.Fullname ($destdir+$_.name)
};

---

最后：Here is an entire SO Thread on copying without replacing.