请教一个复制目录的问题

gdpndw · 发表于 2012-12-13 21:00:35

如图如何用xcopy 复制开头是三个字母中间是44后面是任意两个数学的目录。类似 JYS4452

我用了xcopy ???44?? /s f:\aa 试来试去都不成功。不知道错在哪里了。

pznpt · 发表于 2012-12-14 00:58:15

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Ws = CreateObject("Wscript.Shell")
For Each a In FSO.GetFolder(".").SubFolders
XcopyFolder "^[a-z]{3}44\d{2}$"
Next
MsgBox "复制完成"
Sub XcopyFolder(Pattern)
Set Re = New RegExp
Re.Global = True
Re.IgnoreCase = True
Re.Pattern = Pattern
If Re.Execute(a.Name).Count > 0 Then
Ws.Run "xcopy " & a.Name & "\* f:\aa" & a.Name & "\ /s",vbHide
End If
End Sub

复制代码

保存为test.vbs，与需要复制的文件夹放在同一位置

gdpndw · 发表于 2012-12-14 10:47:00

谢谢解答，请问一下，如果单XCOPY能不能完成这个问题呢？

pznpt · 发表于 2012-12-14 12:07:30

不可能。。。
除非批处理for + xcopy，不过要实现"开头是三个字母"、"结尾是2个数字"比较罗嗦

Batcher · 发表于 2012-12-14 23:12:40

用findstr比较简单吧

pznpt · 发表于 2012-12-15 00:21:33

昂。。。老大提醒的极是，我脑袋灌浆啦，呵呵。。。
----------------------------分割线--------------------------------
@echo off
for /f "delims=" %%a in ('dir /ad /b^|findstr /i "^[a-z][a-z][a-z]44[0-9][0-9]$"') do (
xcopy %%a\* f:\aa\%%a\ /s
)
pause
----------------------------分割线--------------------------------

		自动登录	找回密码
密码			注册

请教一个复制目录的问题

回复 #2 pznpt 的帖子

回复 #3 gdpndw 的帖子

回复 #4 pznpt 的帖子

回复 #5 Batcher 的帖子