Question

如何建立一个这样的批处理，把每天最新的备份文件根据文件夹名拷出。

假如D盘有多个文件夹，分别为d:\ABC，d:\DEF， d:\GHI... 文件夹名无规律。
ABC文件夹下有备份文件a.bak,b.bak,c.bak ...
DEF文件夹下有备份文件d1.bak,d2.bak,d3.bak ... 文件名均无规律

现在我想把每个文件夹(ABC,DEF...)下的最新文件拷到一个新建的BACKUP文件夹里，并以文件夹的名字命名。

比如ABC下的最新文件是D:\ABC\a.bak，现在拷到BACKUP下，并用父文件夹ABC的名称将a.bak重命名为ABC.bak，同样DEF文件夹下最新文件D:\DEF\d1.bak拷到BACKUP下并用父文件夹名称把它重命名为DEF.bak ...

Answer 1

用批处理 麻烦

写个autoit脚本 简单

#include <file.au3>

$folder = FileSelectFolder("请选择主文件夹","")
$bakup = FileSelectFolder("请选择BACKUP文件夹","",1)
$subfolder = _FileListToArray($folder,"*",2)
For $i = 1 To $subfolder[0]
$filelist = _FileListToArray($folder&"\"&$subfolder[$i],"*",1)
$filetime = $filelist
For $j = 1 To $filelist[0]
$filetime[$j] = FileGetTime($folder&"\"&$subfolder[$i]&"\"&$filelist[$j],1,1)
Next
$maxtime = $filetime[1]
$max = 1
For $j = 2 To $filetime[0]
If StringCompare($filetime[$j],$maxtime)>0 Then
$maxtime = $filetime[$j]
$max = $j
EndIf
Next
FileCopy($folder&"\"&$subfolder[$i]&"\"&$filelist[$max],$bakup&"\"&$subfolder[$i]&".bak")
Next

追问

这..什么语言，要如何运行？看头文件像c,看语法像vb,看变量名像像php.
-------------------
查了下。下了个autoit把你的脚本编译成可执行文件就可以了，感谢。但有个问题如果是空文件夹或带子文件夹会出错，提示：
Line 400
Error:Subscript used with non-Array variable.
能不能改下比如把空文件夹带子文件夹的忽略掉。

Answer 2

@echo off
for /f "tokens=*" %%i in ('dir/b/ad d:\') do (
for /f "tokens=*" %%j in ('dir/od/b "%%~dpnxi"') do set fn=%%~dpnxj
copy "%fn%" “d:\backup\%%~ni.bak"
)

追问

运行提示找不到路径

追答

这样可以了，你试试哪个好用
@echo off
for /f "tokens=*" %%i in ('dir/b/ad d:\') do (
for /f "tokens=*" %%j in ('dir/od/b "%%~dpnxi\*"') do set fn=%%j
copy "%%~dpnxi\%fn%" "e:\test\%%~ni.bak"
)

追问

回显D:\>(
for /F "tokens=*" %j in ('dir/od/b "D:\vv\*.*"') do set fn=%j
copy "D:\vv\" "e:\test\vv.bak"
)
系统找不到指定的文件。
------------------------------------
原来是in ('dir/b/ad d:\')也找不到路径,我直接改成了in ('dir/b/ad d:\abc')在abc文件夹里建了几个文件夹aa,cc,vv...测试,还是找不到文件呢
其中可能要 copy "D:\这要路径abc\vv\这里不能为空要一个最新的文件吧" "e:\test\vv.bak" 才行

追答

aa,cc,vv.下有那些bak文件吧，上面的代码没考虑aa,cc,vv.文件夹是空的情况。

Answer 3

这么伤脑筋的批处理，给5分。简单点的，不给分我都可以帮你写了。。。。建议用powershell和其他的编程语言。。批处理做这事挺麻烦。。自己去学下吧。

追问

不好意思啊兄弟，我只剩最后5分了。。。