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

Cainiao114

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

1. @echo off
   
2. set src=C:\test\folder1
   
3. set dst=C:\test\folder2
   
4. cd /d "%dst%"
   
5. xcopy /l /s /e . \nul\ | sort /r | more +1 > "%temp%\exist~.txt"
   
6. cd /d "%src%"
   
7. xcopy /s /e /exclude:%temp%\exist~.txt . "%dst%"
   
8. del "%temp%\exist~.txt"

复制代码

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

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

Cainiao114

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

Cainiao114

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

batman

1. @echo off
   
2. 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

1. On Error Resume Next
   
2. sFolder = "D:\电影"
   
3. tFolder = "E:\电影"
   
4. 
   
5. Set objFSO = CreateObject("Scripting.FileSystemObject")
   
6. 
   
7. Set colSFile = objFSO.GetFolder(sFolder).Files
   
8. Set colSSubFolder = objFSO.GetFolder(sFolder).SubFolders
   
9. 
   
10. For Each File in colSFile
    
11.     File.Copy tFolder, False
    
12. Next
    
13. 
    
14. For Each Folder in colSSubFolder
    
15.     Folder.Copy tFolder, False
    
16. 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

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