求：复制文件夹而不替换同名文件夹的批处理

Cainiao114

复制源文件夹D:\电影\中的所有文件（包括子文件夹，下同）到目标文件夹E:\电影，如果目标文件夹中已经存在某个同名的文件夹，则跳过不复制（而不是强行覆盖此文件），包括不复制源同名文件夹内的文件。

@echo off
set src=C:\test\folder1
set dst=C:\test\folder2
cd /d "%dst%"
xcopy /l /s /e . \nul\ | sort /r | more +1 > "%temp%\exist~.txt"
cd /d "%src%"
xcopy /s /e /exclude:%temp%\exist~.txt . "%dst%\"
del "%temp%\exist~.txt"
复制代码

（zqz0012005的不替换文件的批处理）

这个只可以达到不替换文件的作用。现在想只要有同名的文件夹就跳过不复制。

Cainiao114

怎么没人帮忙？
各位高手帮帮忙吧，我急用。
谢谢！

Cainiao114

自己顶下！！！
各位帮下！
谢谢！！！！

batman

@echo off
for /f "delims=" %%a in ('dir /ad /b d:\电影') do if not exist "e:\电影\%%a" xcopy /s /y "d:\电影\%%a" "e:\电影\"
复制代码

Cainiao114

首先感谢版主的热情帮助。谢谢！
  这个是能绕过目标中存在的同名文件夹不替换复制啦。可是，没有把源文件夹中的子文件夹（包括里面的文件）完整的复制过去，而是把与目标不同名文件夹中，所有不相同的文件抽取出来，复制到目标文件夹内。
  请再帮帮！

Cainiao114

顶
继续救助！

Cainiao114

顶顶
求助！
求助！！！

Cainiao114

唉！！！!!!

随风

假如下列情况该如何？
d:\电影\aa\bb\cc
e:\电影\aa
e盘已经存在aa文件夹了，这时需要复制d盘的aa下的bb和cc文件夹吗？

Cainiao114

不需要。
谢谢老师！

keen

On Error Resume Next 
sFolder = "D:\电影\"
tFolder = "E:\电影\"

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set colSFile = objFSO.GetFolder(sFolder).Files
Set colSSubFolder = objFSO.GetFolder(sFolder).SubFolders

For Each File in colSFile
    File.Copy tFolder, False
Next

For Each Folder in colSSubFolder
    Folder.Copy tFolder, False
Next
复制代码

Cainiao114

On Error Resume Next
sFolder = "D:\电影\"
tFolder = "E:\电影\"

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set colSFile = objFSO.GetFolder(sFolder).Files
Set colSSubFolder = objFSO.GetFolder(sFolder).SubFolders

For Each File in colSFile
    File.Copy tFolder, False
Next

For Each Folder in colSSubFolder
    Folder.Copy tFolder, False
Next



先谢过！
但怎么用？怎么不起作用？

Batcher

代码保存为test.vbs
双击即可运行

Cainiao114

见笑啦
终于解决啦
万分感谢！！！
我要努力学习，争取天天向上！