想编个批量文件,DOS,怎么移动或复制同目录文件？BAT

想编个批量文件,DOS,怎么移动或复制同目录文件到指定目录？回答前请先自己调试下，谢谢！

操作系统：windows XP

谢谢！

@echo off
mode con: cols=35 lines=5
COLOR 3e
echo.
echo. ........................
echo. 本脚本将复制当前目录下的
echo. 所有文件到您指定的目录!
echo. ........................
title 批量文件复制:
Set /p path=请拉入你想想复制到的目录文件夹→
copy %cd%\*.* %path%

这个是批处理也就是.bat保存运行！

............................................................

On Error Resume Next
Const WINDOW_HANDLE = 0
Const NO_OPTIONS = 0

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE, "请选择要复制的文件目录:", NO_OPTIONS)
If objFolder Is Nothing Then
Wscript.Quit
End If
Set objFolderItem = objFolder.Self
target = objFolderItem.Path
If msgbox("你将要复制的是" & target & "\下的所有文件 ",48+1,"是否继续：") = 1 then
else

wscript.quit
End if

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE, "请选择文件将要复制到的目录:", NO_OPTIONS)
If objFolder Is Nothing Then
Wscript.Quit
End If
Set objFolderItem = objFolder.Self
destination = objFolderItem.Path
if msgbox("你将要复制文件到" & destination & "\ ",48+1,"是否继续") = 1 then
else

wscript.quit
End if
set fso = createobject("scripting.filesystemobject")
fso.copyfile target & "\*.*", destination

Dim objws
Set objws=WScript.CreateObject("wscript.shell")
objws.Popup "你所选择的文件已经复制完毕！",3,"系统提示",4000+48

这个是VBS版的保存为*.vbs

写了一个copy的，如果想移动，把copy改成move就可以了！

@echo off title 批量复制文件 echo. echo.------------------- echo.请确认该批处理处于需要复制的相对目录中 echo.注意此批处理只可以复制文件，不可以复制文件夹 echo.------------------- echo. :start Set /p a=请输入指定的文件夹路径: if exist "%a%" ( For /r %%i In (*.*) Do If exist %%i @copy "%%i" "%a%" echo 复制完成 & pause > nul exit ) else echo 不存在此文件夹路径，请您创建 & echo. & goto start