[文件操作] 【已解决】批处理如何循环判断打开正确的路径并复制当前文件夹到指定路径下？

aabout2008

start "" "C:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 
start "" "D:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 
start "" "E:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 
start "" "F:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 
start "" "G:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

start "" "C:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 
start "" "D:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 
start "" "E:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 
start "" "F:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 
start "" "G:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" ""  

rem  打开Coredraw2020插件目录 
rem  将批处理所在文件夹，复制到Addons 目录下
复制代码

aabout2008

想要实现的效果就是，打开软件正确的路径后，复制批处理所在文件夹到打开的路径下后关闭批处理。我不太懂这些，只能把所有可能的路径都考虑进去，一点开报错好多，然后手动复制。

start "" "C:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 
start "" "D:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 
start "" "E:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 
start "" "F:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 
start "" "G:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

start "" "C:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 
start "" "D:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 
start "" "E:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 
start "" "F:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 
start "" "G:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" ""  
复制代码

aabout2008

目录最好是用相对目录(也不知道是不是这样的说法。)，就是不用搜索addons字段打开这个文件夹，才把文件夹复制过去。

就是把上面的路径都循环一遍后，打开正确的路径后把批处理所在文件夹复制过去。

ShowCode

回复 1# aabout2008

@echo off
for %%i in (C D E F G) do (
    if not exist "%%i:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" (
        xcopy /e /y "%~dp0" "%%i:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons\"
    ) else (
        echo Not found "%%i:"
    )
)
pause
复制代码

77七

%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c ""%~s0"" ::","","runas",1)(window.close)&&exit
@echo off
cd /d "%~dp0"
set str=CorelDRAW Graphics Suite 2020\Programs64\Addons
for %%a in (c d e f g) do (
	if exist "%%a:\Program Files (x86)\%str%" (
		robocopy . "%%a:\Program Files (x86)\%str%" /e /xf "%~f0"
	) else if exist "%%a:\Program Files \%str%" (
		robocopy . "%%a:\Program Files \%str%" /e /xf "%~f0"
	)
)
pause
复制代码

aabout2008

回复 5# 77七    
测试正常。您这个批处理达到效果是，复制bat所在目录下文件到指定目录。。

如果能获取到bat所在文件夹的文件名后，以文件夹的形式复制到当前打开的目录下就更好了。
感谢，基本效果达到了，大不了去目录下新建一个文件夹，再把文件剪切进去。

aabout2008

回复 4# ShowCode 您这个提示：无效路径。

无效路径

复制了0个文件
Not , found "D:"
无效驱动器规格
复制了0个义件
无效驱动器规格
复制了0个文件
无救驱动器规格
复制了0个文件
请按任意键继续...
复制代码

77七

回复 6# aabout2008


  

%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c ""%~s0"" ::","","runas",1)(window.close)&&exit
@echo off
cd /d "%~dp0"
set str=CorelDRAW Graphics Suite 2020\Programs64\Addons
for %%a in (c d e f g) do (
	if exist "%%a:\Program Files (x86)\%str%" (
		set _str=%%a:\Program Files (x86)\%str%
	) else if exist "%%a:\Program Files \%str%" (
		set _str=%%a:\Program Files \%str%
	)
)
for %%a in (.) do (
	robocopy . "%_str%\%%~nxa" /e /xf "%~f0"
)
pause
复制代码

aabout2008

回复 8# 77七 加了这个语句，不执行呃。

    for %%a in (.) do (
	robocopy . "%_str%\%%~nxa" /e /xf "%~f0"
)
复制代码

没修改前是可以用的，加了后边的语句没反应了。

可不可以在运行批处理的时候，先获取批处理所在的文件夹名。
循环路径打开对的路径后，先新建一个刚刚获取文件夹名的文件夹。再把文件复制进去。

ShowCode

回复 7# aabout2008


    把4楼代码第3行的not删掉再试试

77七

回复 9# aabout2008


   改一下第7行，这个if 和 ()总是容易出错

set "_str=%%a:\Program Files (x86)\%str%"
复制代码

aabout2008

回复 11# 77七    万分感谢。。。这下完美解决了。

aabout2008

回复 10# ShowCode    

删掉not后就可以了。达到的效果是：复制bat所在目录下其它文件到打开的目录下。。

如果能获取到bat所在文件夹的文件名后，以文件夹的形式复制到当前打开的目录下就更好了。 您这个代码要少一些，后面要怎么加才能变成文件夹复制过去。

aloha20200628

回复 13# aabout2008
把当前目录（批处理脚本所在目录）整个复制过去...

@echo off
set "p86=Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons"
set "p64=Program Files\CorelDRAW Graphics Suite 2020\Programs64\Addons"
set "_d=%~p0"
set "_d=%_d:~,-1%"
(for %%d in (c: d: e: f: g:) do (
	for %%p in ("%p86%" "%p64%") do if /i exist "%%d\%%~p" (
		md "%%d\%%~p%_d%"
		xcopy /s/q/y "%_d%" "%%d\%%~p%_d%"
	)
)) 2>nul
exit/b
复制代码

aabout2008

回复 14# aloha20200628    

您这个测试后，如果文件夹是在桌面上，则没有反应。

在硬盘中，假如路径是1\2\3\a ，a文件夹中有这个批处理。
运行后会把1\2\3\a文件夹一起复制过去。但我需要复制过去的只是a文件夹。