[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12
返回列表 发帖
aabout2008

Rank: 1

帖子
19 
积分
33 
技术
0  
捐助
0  
注册时间
2024-4-2 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2024-4-2 10:14 | 只看该作者

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

本帖最后由 aabout2008 于 2024-4-5 07:12 编辑 
  1. start "" "C:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  2. start "" "D:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  3. start "" "E:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  4. start "" "F:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  5. start "" "G:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  6. 

  7. start "" "C:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  8. start "" "D:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  9. start "" "E:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  10. start "" "F:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  11. start "" "G:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" ""  

  12. 

  13. rem  打开Coredraw2020插件目录 

  14. rem  将批处理所在文件夹，复制到Addons 目录下
复制代码
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

aabout2008

Rank: 1

帖子
19 
积分
33 
技术
0  
捐助
0  
注册时间
2024-4-2 
2楼
发表于 2024-4-2 10:18 | 只看该作者
想要实现的效果就是，打开软件正确的路径后，复制批处理所在文件夹到打开的路径下后关闭批处理。我不太懂这些，只能把所有可能的路径都考虑进去，一点开报错好多，然后手动复制。
  1. start "" "C:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  2. start "" "D:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  3. start "" "E:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  4. start "" "F:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  5. start "" "G:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  6. 

  7. start "" "C:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  8. start "" "D:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  9. start "" "E:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  10. start "" "F:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" "" 

  11. start "" "G:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" ""  
复制代码

TOP

aabout2008

Rank: 1

帖子
19 
积分
33 
技术
0  
捐助
0  
注册时间
2024-4-2 
3楼
发表于 2024-4-2 10:26 | 只看该作者
本帖最后由 aabout2008 于 2024-4-2 10:28 编辑

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

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

TOP

ShowCode

Rank: 8Rank: 8

帖子
514 
积分
1068 
技术
81  
捐助
298  
注册时间
2017-3-17 
4楼
发表于 2024-4-2 10:38 | 只看该作者
回复 1# aabout2008 
  1. @echo off

  2. for %%i in (C D E F G) do (

  3.     if not exist "%%i:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons" (

  4.         xcopy /e /y "%~dp0" "%%i:\Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons\"

  5.     ) else (

  6.         echo Not found "%%i:"

  7.     )

  8. )

  9. pause
复制代码
测试代码之前请做好备份

TOP

77七

Rank: 6Rank: 6

帖子
1243 
积分
2147 
技术
281  
捐助
50  
注册时间
2022-9-18 
5楼
发表于 2024-4-2 11:54 | 只看该作者
本帖最后由 77七 于 2024-4-2 11:56 编辑 
  1. %1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c ""%~s0"" ::","","runas",1)(window.close)&&exit

  2. @echo off

  3. cd /d "%~dp0"

  4. set str=CorelDRAW Graphics Suite 2020\Programs64\Addons

  5. for %%a in (c d e f g) do (

  6. 	if exist "%%a:\Program Files (x86)\%str%" (

  7. 		robocopy . "%%a:\Program Files (x86)\%str%" /e /xf "%~f0"

  8. 	) else if exist "%%a:\Program Files \%str%" (

  9. 		robocopy . "%%a:\Program Files \%str%" /e /xf "%~f0"

  10. 	)

  11. )

  12. pause
复制代码
bat小白，请多指教！谢谢！

TOP

aabout2008

Rank: 1

帖子
19 
积分
33 
技术
0  
捐助
0  
注册时间
2024-4-2 
6楼
发表于 2024-4-2 14:07 | 只看该作者
本帖最后由 aabout2008 于 2024-4-2 14:12 编辑

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

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

TOP

aabout2008

Rank: 1

帖子
19 
积分
33 
技术
0  
捐助
0  
注册时间
2024-4-2 
7楼
发表于 2024-4-2 14:21 | 只看该作者
回复 4# ShowCode 您这个提示：无效路径。
  1. 无效路径

  2. 

  3. 复制了0个文件

  4. Not , found "D:"

  5. 无效驱动器规格

  6. 复制了0个义件

  7. 无效驱动器规格

  8. 复制了0个文件

  9. 无救驱动器规格

  10. 复制了0个文件

  11. 请按任意键继续...
复制代码

TOP

77七

Rank: 6Rank: 6

帖子
1243 
积分
2147 
技术
281  
捐助
50  
注册时间
2022-9-18 
8楼
发表于 2024-4-2 14:24 | 只看该作者
回复 6# aabout2008


  
  1. %1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c ""%~s0"" ::","","runas",1)(window.close)&&exit

  2. @echo off

  3. cd /d "%~dp0"

  4. set str=CorelDRAW Graphics Suite 2020\Programs64\Addons

  5. for %%a in (c d e f g) do (

  6. 	if exist "%%a:\Program Files (x86)\%str%" (

  7. 		set _str=%%a:\Program Files (x86)\%str%

  8. 	) else if exist "%%a:\Program Files \%str%" (

  9. 		set _str=%%a:\Program Files \%str%

  10. 	)

  11. )

  12. for %%a in (.) do (

  13. 	robocopy . "%_str%\%%~nxa" /e /xf "%~f0"

  14. )

  15. pause
复制代码
1

评分人数

bat小白，请多指教！谢谢！

TOP

aabout2008

Rank: 1

帖子
19 
积分
33 
技术
0  
捐助
0  
注册时间
2024-4-2 
9楼
发表于 2024-4-2 15:05 | 只看该作者
本帖最后由 aabout2008 于 2024-4-2 16:22 编辑

回复 8# 77七 加了这个语句，不执行呃。
  1.     for %%a in (.) do (

  2. 	robocopy . "%_str%\%%~nxa" /e /xf "%~f0"

  3. )
复制代码
没修改前是可以用的，加了后边的语句没反应了。

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

TOP

ShowCode

Rank: 8Rank: 8

帖子
514 
积分
1068 
技术
81  
捐助
298  
注册时间
2017-3-17 
10楼
发表于 2024-4-2 15:11 | 只看该作者
回复 7# aabout2008


    把4楼代码第3行的not删掉再试试
测试代码之前请做好备份

TOP

77七

Rank: 6Rank: 6

帖子
1243 
积分
2147 
技术
281  
捐助
50  
注册时间
2022-9-18 
11楼
发表于 2024-4-2 15:19 | 只看该作者
本帖最后由 77七 于 2024-4-2 15:20 编辑

回复 9# aabout2008


   改一下第7行，这个if 和 ()总是容易出错
  1. set "_str=%%a:\Program Files (x86)\%str%"
复制代码

bat小白，请多指教！谢谢！

TOP

aabout2008

Rank: 1

帖子
19 
积分
33 
技术
0  
捐助
0  
注册时间
2024-4-2 
12楼
发表于 2024-4-2 16:25 | 只看该作者
回复 11# 77七    万分感谢。。。这下完美解决了。

TOP

aabout2008

Rank: 1

帖子
19 
积分
33 
技术
0  
捐助
0  
注册时间
2024-4-2 
13楼
发表于 2024-4-2 16:54 | 只看该作者
回复 10# ShowCode    

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

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

TOP

aloha20200628

Rank: 5Rank: 5

帖子
359 
积分
621 
技术
83  
捐助
0  
注册时间
2021-10-13 
14楼
发表于 2024-4-2 17:50 | 只看该作者
本帖最后由 aloha20200628 于 2024-4-2 17:53 编辑

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

  2. set "p86=Program Files (x86)\CorelDRAW Graphics Suite 2020\Programs64\Addons"

  3. set "p64=Program Files\CorelDRAW Graphics Suite 2020\Programs64\Addons"

  4. set "_d=%~p0"

  5. set "_d=%_d:~,-1%"

  6. (for %%d in (c: d: e: f: g:) do (

  7. 	for %%p in ("%p86%" "%p64%") do if /i exist "%%d\%%~p" (

  8. 		md "%%d\%%~p%_d%"

  9. 		xcopy /s/q/y "%_d%" "%%d\%%~p%_d%"

  10. 	)

  11. )) 2>nul

  12. exit/b
复制代码

TOP

aabout2008

Rank: 1

帖子
19 
积分
33 
技术
0  
捐助
0  
注册时间
2024-4-2 
15楼
发表于 2024-4-3 16:19 | 只看该作者
回复 14# aloha20200628    

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

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

TOP

12
返回列表