aabout2008

回复 11# 77七

aabout2008

回复 14# aloha20200628    

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

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

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

回复 10# ShowCode    

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

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

aabout2008

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

77七

回复 9# aabout2008


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

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

ShowCode

回复 7# aabout2008


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

aabout2008

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

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

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

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

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

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

无效路径

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

aabout2008

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

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

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
复制代码

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
复制代码

aabout2008

目录最好是用相对目录(也不知道是不是这样的说法。)，就是不用搜索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" ""  
复制代码