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

TOP

回复 14# aloha20200628    

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

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

TOP

本帖最后由 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

回复 10# ShowCode    

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

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

TOP

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

TOP

本帖最后由 77七 于 2024-4-2 15:20 编辑

回复 9# aabout2008


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

bat小白,请多指教!谢谢!

TOP

回复 7# aabout2008


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

TOP

本帖最后由 aabout2008 于 2024-4-2 16:22 编辑

回复 8# 77七 加了这个语句,不执行呃。
  1.     for %%a in (.) do (
  2. robocopy . "%_str%\%%~nxa" /e /xf "%~f0"
  3. )
复制代码
没修改前是可以用的,加了后边的语句没反应了。

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

TOP

回复 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

回复 4# ShowCode 您这个提示:无效路径。
  1. 无效路径
  2. 复制了0个文件
  3. Not , found "D:"
  4. 无效驱动器规格
  5. 复制了0个义件
  6. 无效驱动器规格
  7. 复制了0个文件
  8. 无救驱动器规格
  9. 复制了0个文件
  10. 请按任意键继续...
复制代码

TOP

本帖最后由 aabout2008 于 2024-4-2 14:12 编辑

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

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

TOP

本帖最后由 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

回复 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

本帖最后由 aabout2008 于 2024-4-2 10:28 编辑

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

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

TOP

想要实现的效果就是,打开软件正确的路径后,复制批处理所在文件夹到打开的路径下后关闭批处理。我不太懂这些,只能把所有可能的路径都考虑进去,一点开报错好多,然后手动复制。
  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. start "" "C:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" ""
  7. start "" "D:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" ""
  8. start "" "E:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" ""
  9. start "" "F:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" ""
  10. start "" "G:\Program Files \CorelDRAW Graphics Suite 2020\Programs64\Addons" ""  
复制代码

TOP

返回列表