标题: [文件操作] 想写一个批处理,实现查找一个文件夹并复制内容进去? [打印本页]
作者: q995855 时间: 2022-6-5 19:38 标题: 想写一个批处理,实现查找一个文件夹并复制内容进去?
想写一个批处理,实现查找一个文件夹(位置不知道是哪个盘,只知道是Cim\Cim2\Data\NC),并将一个文件(例如0123.exe)复制到这个路径文件夹下,如何实现呢?新手刚练习不久,请教各位老师,感谢!
作者: Batcher 时间: 2022-6-5 20:29
回复 1# q995855
请参考Q-04把bat文件保存为ANSI编码:
https://mp.weixin.qq.com/s/Koje4FufWxWBs7ioDy_LJA- @echo off
- cd /d "%~dp0"
- for %%a in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
- if exist "%%a:\Cim\Cim2\Data\NC\" (
- copy /y "0123.exe" "%%a:\Cim\Cim2\Data\NC\"
- )
- )
复制代码
作者: q995855 时间: 2022-6-6 14:35
本帖最后由 q995855 于 2022-6-6 14:37 编辑
回复 2# Batcher 老师您好,请教一下,为什么我用这段来做搜索文件夹路径后并复制文件进最后一个文件夹时,最终出来的结果是路径找到了,但是文件没有复制进去,bat文件跟需要复制进去的文件是同一个文件夹的,是哪里的问题吗?- <# :
- cls&echo off&cd /d "%~dp0"
- rem
- title %#% +%$%%$%/%_% %z%
- powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"
- echo;%#% +%$%%$%/%_% %z%
- pause
- exit
- #>
- $file="333.xlsm";
- $pathpart="data\nc";
- $b=[Convert]::FromBase64String("IC0tPiA=");
- $c=[Text.Encoding]::Default.GetString($b);
- $p='\'+$pathpart.trim('\').ToLower();
- for($i=90;$i -ge 67;$i--){
- $drive=([char]$i).ToString()+':\';
- if(test-path -literal $drive){
- write-host ($drive+' 搜索中,请稍后……');
- $folders=@(dir -literal $drive -recurse -ErrorAction SilentlyContinue|?{$_ -is [System.IO.DirectoryInfo]});
- for($j=0;$j -lt $folders.length;$j++){
- if($folders[$j].FullName.ToLower().EndsWith($p)){$file+$c+$folders[$j].FullName;}
- }
- write-host '完成,正在搜索下一个';
- }
- }
复制代码
作者: flashercs 时间: 2022-6-6 15:11
没写复制语句;
第21行改一下:- if($folders[$j].FullName.ToLower().EndsWith($p)){$file+$c+$folders[$j].FullName;copy-item -literal $file -Destination $folders[$j].FullName -force}
复制代码
作者: q995855 时间: 2022-6-6 16:27
本帖最后由 q995855 于 2022-6-6 16:36 编辑
没写复制语句;
第21行改一下:
flashercs 发表于 2022-6-6 15:11
嗯,感谢老师帮忙修改,解决了,但是还有一个问题,当搜到同一个主文件夹后,子文件夹还有同样的时候,搜索还是会遗漏
作者: flashercs 时间: 2022-6-6 18:48
回复 5# q995855
看脚本 不会有遗漏的;除非 没有权限访问的目录
欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |