如何编写批处理代码复制文件夹A中的文件及文件夹到文件夹B,要求复制所有文件及目录,若重名自动重命名!

2024-11-17 20:10:07
推荐回答(1个)
回答(1):

现在流行autoit自动化脚本 写个给你看看吧

#include
$src = "d:\a"
$tag = "d:\b"
$n = 0;
$src_list = _FileListToArray($src, "*")
For $i = 1 To $src_list[0]
If FileExists($tag & "\" & $src_list[$i]) Then
$n += 1
If StringInStr(FileGetAttrib($src & "\" & $src_list[$i]), "D") Then
DirCopy($src & "\" & $src_list[$i], $tag & "\" & $src_list[$i] & "(" & $n & ")")
Else
$p = StringInStr($src_list[$i], ".", 0, -1)
If Not $p Then
FileCopy($src & "\" & $src_list[$i], $tag & "\" & $src_list[$i] & "(" & $n & ")")
Else
$filename = StringLeft($src_list[$i], $p-1) & "(" & $n & ")" & StringMid($src_list[$i], $p)
FileCopy($src & "\" & $src_list[$i], $tag & "\" & $filename)
EndIf
EndIf
Else
If StringInStr(FileGetAttrib($src & "\" & $src_list[$i]), "D") Then
DirCopy($src & "\" & $src_list[$i], $tag)
Else
FileCopy($src & "\" & $src_list[$i], $tag)
EndIf
EndIf
Next