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


版主是我太笨 , 你那代码我试过了,它还是从C:\Windows\System32的EXE程序创建快捷方式到H:\lvse_ruanjian文件夹内,我要的是在H:\lvse_ruanjian内的EXE程序创建到指定文件夹。 烦请你能否帮我再修改下,批处理这个我刚刚学!
学以致用!不耻下问!

TOP

本帖最后由 pcl_test 于 2016-1-4 22:24 编辑

回复 31# nevergiveup520
30楼代码运行结果发出来,别发些没用的截图

TOP

回复 32# pcl_test

30楼运行的结果:好多这样的,我只截取了部分!
学以致用!不耻下问!

TOP

本帖最后由 pcl_test 于 2016-1-4 23:56 编辑

回复 33# nevergiveup520

保存为vbs运行,出现提示框,点确定即可
  1. Set fso = CreateObject("scripting.filesystemobject")
  2. Set objws = wscript.CreateObject("Wscript.Shell")
  3. desktop = objws.SpecialFolders("Desktop")
  4. t = "桌面:"& desktop& vbCrLf &"VBS所在路径:"& objws.CurrentDirectory & vbCrLf
  5. Set Folder = fso.GetFolder(objws.CurrentDirectory)
  6. Set Files = Folder.Files
  7. For Each f In Files
  8.     Ext = LCase(fso.GetExtensionName(f))
  9.     IF Ext = "exe" Then
  10.         lnk = Desktop & "\" & Left(f.Name, InStrRev(f.Name, ".")-1) & ".lnk"
  11.         Set objLink = objws.CreateShortcut(lnk)
  12.         objLink.TargetPath = f
  13.         objLink.Save
  14.         msgbox t & lnk & vbCrLf &"程序所在路径:" &f
  15.     End If
  16. Next
复制代码

TOP

本帖最后由 9zhmke 于 2016-1-5 08:58 编辑

我多年前做的批处理版的,只能针对存放绿色软件的文件夹使用,否则自己修改下吧:
  1. @echo off&color 1f
  2. echo.
  3. echo  ╭─────────────────────────────────────╮
  4. echo  │                                                                          │
  5. echo  │ 批量跑快捷.cmd 9z更新于2009.12.1             http://693985.qzone.qq.com  │
  6. echo  │                                                                          │
  7. echo  │ 目的: 自动查找出文件夹下所有子文件夹里的快捷方式并建立到到桌面,是绿色软  │
  8. echo  │ 件爱好者和电脑公司必备工具, 经常整理软件的个人用户使用起来更是方便。     │
  9. echo  │                                                                          │
  10. echo  │ 使用方法: 把所需要处理的文件夹拖到这个程序上面,或者把程序放到文件夹中执  │
  11. echo  │          行,在桌面或c:\运行时会从G盘到D盘选择最近的一个\tools文件夹处理  │
  12. echo  │ 要求: 1. 用户事先把需建快捷方式的软件在相应目录中都建立一次快捷方式,如   │
  13. echo  │          果今后这个目录被更改了位置,批处理将自动更正生成新的快捷方式。   │
  14. echo  │       2. 用户对要注册绿化类的软件建立名字要包含有“注册、绿化、安装、汉  │
  15. echo  │          化、设置、破解”字样的批处理、执行文件或注册表文件。            │
  16. echo  │       3. 对不需要建立快捷方式而又要运行的注册表、程序、批处理请更名包含  │
  17. echo  │         为“关联”字样。                                                 │
  18. echo  │                                                                          │
  19. echo  ╰─────────────────────────────────────╯
  20. setlocal enabledelayedexpansion
  21. set debug=0
  22. echo Set WS = WScript.CreateObject("WScript.Shell")>d:\temp.vbs
  23. echo strFullPath ="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders">>d:\temp.vbs
  24. echo strNames = "AppData,Personal,Favorites,Desktop">>d:\temp.vbs
  25. echo aName = Split(strNames, ",")>>d:\temp.vbs
  26. echo For i = 1 To UBound(aName)>>d:\temp.vbs
  27. echo Wscript.Echo WS.RegRead(strFullPath ^& "\" ^& aName(i))>>d:\temp.vbs
  28. echo Next>>d:\temp.vbs
  29. set n=0
  30. for /f "delims=" %%i in ('cscript.exe //nologo d:\temp.vbs') do set /a n=n+1&set tmp!n!=%%i
  31. echo  我的文档=%tmp1%,桌面=%tmp3%
  32. set desk=%tmp3%
  33. del d:\temp.vbs >nul 2>nul
  34. rem 前面几句找桌面,后面这段找工作文件夹
  35. set doc=%1
  36. if not "%1"=="" set doc=%doc:"=%
  37. if "%doc%" gtr "" set filetmp="%1" & cd /d %1&&set i=1
  38. if /i "%cd%" neq "c:\" if  /i "%cd%" neq "%desk%" for /f %%j in ('dir /a:d /b') do set /a i+=1&if "!i!" gtr "2" goto NEXT
  39. for %%i in (d e f g h i j k l m n o p q r s t u c) do for /f "tokens=3" %%j in ('fsutil fsinfo drivetype %%i:') do (
  40. if "%%j"=="固定驱动器" if exist %%i:\tools\nul set lastdrv=%%i:
  41. )
  42. cd /d %lastdrv%\tools >nul 2>nul && goto NEXT
  43. :NEXT
  44. set filetmp=%cd%
  45. for /d %%i in (*.*) do  if exist %%i\nul goto BEGIN
  46. echo 使用时请把本文件放到相应文件夹里运行或拖动绿色软件的总文件夹到本程序上。
  47. echo 既没给出指定文件夹,也没找到名为tools的文件夹,程序退出。
  48. goto END
  49. :BEGIN
  50. del d:\temp.tmp /f /q >nul 2>nul
  51. echo  将对%cd%进行处理,否则请关闭本窗口....
  52. echo.
  53. set bakcuppath=%cd%
  54. cd /d %filetmp%
  55. echo 请耐心等待,硬盘灯亮完开始闪烁时就快了,程序将把%cd%下子目录里的快捷方式修
  56. echo 正并全放到桌面,同时查找同级文件夹是否有安装脚本,如果有的话会自动安装...
  57. echo ===============================================================================
  58. echo.
  59. for /f "tokens=1* delims=" %%i in ('dir *.lnk /s /b') do (
  60.     set str="%%i"& call :chklnk "%%i"
  61.     if not "!j!"=="not" (
  62.         set j=!fileurl:快捷方式=!
  63.         set j=!j:.exe=!
  64.         if "!fileurl!" neq "!j!" if exist "%desk%\!j!" del "%desk%\!j!"
  65.         if %debug%==1 echo 如果"!fileurl!" 不等于 "!j!" 那么如果存在 "%desk%\!j!" 删除 "%desk%\!j!"
  66.         ren "%desk%\!fileurl!" "!j!"
  67.         if %debug%==1 echo 改名"%desk%\!fileurl!"为"!j!"
  68.         set fileurl=
  69.         for %%k in (reg,install,setup,启用,破解,汉化,配置,设置,注册,初始,绿化,安装) do (
  70.             for /f %%l in ('dir *%%k*.inf *%%k*.reg *%%k*.exe *%%k*.cmd *%%k*.bat /b 2^>nul') do (
  71.               set str=%%l
  72.               set str=!str:un=!
  73.               set str=!str:卸=!
  74.               set str=!str:删=!
  75.               set str=!str:反=!
  76.               if "!str!" == "%%l" set fileurl=%%l)
  77.               )
  78.             )
  79.         if not "!fileurl!"=="" (if not  !fileurl:~-3!==lnk! call :green)
  80.     )
  81. )
  82. :关联
  83. echo.
  84. echo 快捷方式建立完毕,开始关联文件,有关联字样的程序将不把快捷方式发送到桌面...
  85. echo ===============================================================================
  86. cd /d %bakcuppath%
  87. for /f "delims=" %%i in ('dir *关联*.exe *关联*.bat *关联*.reg *关联*.cmd *关连*.exe *关连*.bat *关连*.reg *关连*.cmd /s /b') do (
  88.    set filetmp=%%~nxi&&set j=
  89.    if %debug%==1 echo 上面一句取得tools下每一文件快捷方式文件路径+文件名,路径=%%~dpi,文件名=%%~nxi
  90.    cd "%%~dpi"
  91.    if "!filetmp:原=!" gtr "!filetmp!" (set filetmp=) else (if "!filetmp:卸=!" gtr "!filetmp!" set filetmp=)
  92.    if "!filetmp!" gtr "" echo ..!cd!\"!filetmp!"&&if /i "!filetmp:~-3!"=="reg" (call regedit /s !filetmp!
  93.    ) else (if /i "!filetmp:~-3!"=="exe" (start /b "" "!cd!\!filetmp!") else (
  94.    ren "^!!filetmp!" "!filetmp!" > nul 1>nul 2>nul &&更名去掉“!”
  95.    echo @echo off >d:\temp.tmp
  96.    type !filetmp!|find /i /v "pause" >>d:\temp.tmp && rem 去掉文件中的pause、exit(以后改为exit /b)不退出cmd.exe
  97.    type d:\temp.tmp|find /i /v "exit" >tmp.bat
  98.    set filetmp="!cd!"
  99.    call tmp.bat
  100.    cd /d !filetmp!&&del tmp.bat&&color 1f&&echo off
  101.    )  
  102. )
  103.    )
  104. echo.
  105. echo ================================批量跑快捷已完成工作===========================
  106. echo ===============================================================================
  107. echo.
  108. :MENU
  109. echo    将把桌面上的快捷方式整理到开始菜单中...
  110. echo.
  111. echo.
  112. rem 取开始菜单位置
  113. if     exist %windir%\repair\*.bat set startmenu=D:\我的文档\系统设置\开始菜单
  114. if not exist %windir%\repair\*.bat set startmenu=%allusersprofile%\「开始」菜单
  115. echo.%startmenu%..专业程序..休闲娱乐..常用工具
  116. echo.
  117. md "%startmenu%\专业程序" 2>nul
  118. md "%startmenu%\休闲娱乐" 2>nul
  119. md "%startmenu%\常用工具" 2>nul
  120. echo.|set /p=直接显示到开始菜单上部的,<nul
  121. del "%startmenu%\qq*.lnk" /q /f >nul 2>nul
  122. del "%startmenu%\迅雷*.lnk" /q /f >nul 2>nul
  123. del "%startmenu%\Thunder*.lnk" /q /f >nul 2>nul
  124. for %%i in (qq,迅雷,Thunder,连接,车) do move "%desk%\*%%i*.lnk"  "%startmenu%">nul 2>nul
  125. for %%i in (qq,迅雷,Thunder,连接,车) do move "%userprofile%\桌面\*%%i*.lnk"  "%startmenu%">nul 2>nul
  126. for %%i in (qq,迅雷,Thunder,连接,车) do move "%allusersprofile%\桌面\*%%i*.lnk"  "%startmenu%">nul 2>nul
  127. echo.|set /p=休闲娱乐类、<nul
  128. for %%i in (音,听,声,影,视,play,棋,游戏,牌,麻将,vod,播,战,acdsee,斗地主,图,spider) do move "%desk%\*%%i*.lnk"  "%startmenu%\休闲娱乐">nul 2>nul
  129. for %%i in (音,听,声,影,视,play,棋,游戏,牌,麻将,vod,播,战,acdsee,斗地主,图,spider) do move "%userprofile%\桌面\*%%i*.lnk"  "%startmenu%\休闲娱乐">nul 2>nul
  130. for %%i in (音,听,声,影,视,play,棋,游戏,牌,麻将,vod,播,战,acdsee,斗地主,图,spider) do move "%allusersprofile%\桌面\*%%i*.lnk"  "%startmenu%\休闲娱乐">nul 2>nul
  131. echo.|set /p=工具类、<nul
  132. for %%i in (下载,cad,flash,fox,nero,7z,vpc,iso,排版,辞典,译,3d,ocr,conver,pdf,精灵,光驱,旺旺,photoshop,read,dict,UniversalView,wps) do move "%desk%\*%%i*.lnk"  "%startmenu%\常用工具">nul 2>nul
  133. for %%i in (下载,cad,flash,fox,nero,7z,vpc,iso,排版,辞典,译,3d,ocr,conver,pdf,精灵,光驱,旺旺,photoshop,read,dict,UniversalView,wps) do move "%userprofile%\桌面\*%%i*.lnk"  "%startmenu%\常用工具">nul 2>nul
  134. for %%i in (下载,cad,flash,fox,nero,7z,vpc,iso,排版,辞典,译,3d,ocr,conver,pdf,精灵,光驱,旺旺,photoshop,read,dict,UniversalView,wps) do move "%allusersprofile%\桌面\*%%i*.lnk"  "%startmenu%\常用工具">nul 2>nul
  135. for %%i in (office,excel,sql,word,powerp,纳米,dutool,资料,阿里旺旺,trstec,raysource,手机,摄,助手,fetion) do move "%desk%\*%%i*.lnk"  "%startmenu%\常用工具">nul 2>nul
  136. for %%i in (office,excel,sql,word,powerp,纳米,dutool,资料,阿里旺旺,trstec,raysource,手机,摄,助手,fetion) do move "%userprofile%\桌面\*%%i*.lnk"  "%startmenu%\常用工具">nul 2>nul
  137. for %%i in (office,excel,sql,word,powerp,纳米,dutool,资料,阿里旺旺,trstec,raysource,手机,摄,助手,fetion) do move "%allusersprofile%\桌面\*%%i*.lnk"  "%startmenu%\常用工具">nul 2>nul
  138. echo 专业程序类。
  139. for %%i in (优化,兔子,整理,拟,360,safe,kv,av,Ulead,毒霸,瑞星,江民,ghost,一键,强力卸载,内存,磁盘,硬盘,安全,量产,U盘,速度,驱动) do move "%desk%\*%%i*.lnk"  "%startmenu%\专业程序">nul 2>nul
  140. for %%i in (优化,兔子,整理,拟,360,safe,kv,av,Ulead,毒霸,瑞星,江民,ghost,一键,强力卸载,内存,磁盘,硬盘,安全,量产,U盘,速度,驱动) do move "%userprofile%\桌面\*%%i*.lnk"  "%startmenu%\专业程序">nul 2>nul
  141. for %%i in (优化,兔子,整理,拟,360,safe,kv,av,Ulead,毒霸,瑞星,江民,ghost,一键,强力卸载,内存,磁盘,硬盘,安全,量产,U盘,速度,驱动) do move "%allusersprofile%\桌面\*%%i*.lnk"  "%startmenu%\专业程序">nul 2>nul
  142. md "%startmenu%\专业程序\其他"
  143. for %%i in (进程,mon,icesword,Sys,july,防火墙,SERVICESPE,Tcp,reg,proc,监,注册表,exescope,pecompact,unpack,sysexp,stultima,hex,wpe,警,wingho,还原) do move "%desk%\*%%i*.lnk"  "%startmenu%\专业程序\其他">nul 2>nul
  144. for %%i in (进程,mon,icesword,Sys,july,防火墙,SERVICESPE,Tcp,reg,proc,监,注册表,exescope,pecompact,unpack,sysexp,stultima,hex,wpe,警,wingho,还原) do move "%desk%\*%%i*.lnk"  "%userprofile%\桌面\*%%i*.lnk"  "%startmenu%\专业程序\其他">nul 2>nul
  145. for %%i in (进程,mon,icesword,Sys,july,防火墙,SERVICESPE,Tcp,reg,proc,监,注册表,exescope,pecompact,unpack,sysexp,stultima,hex,wpe,警,wingho,还原) do move "%desk%\*%%i*.lnk"  "%allusersprofile%\桌面\*%%i*.lnk"  "%startmenu%\专业程序\其他">nul 2>nul
  146. :END
  147. echo.
  148. del d:\temp.* >nul 2>nul
  149. cd /d %bakcuppath%
  150. del tmp.bat /s /q >nul 2>nul
  151. echo.
  152. echo.
  153. echo  批量跑快捷已经完成,请检查开始菜单上部的内容。按任意键退出或直接关闭本窗口....
  154. pause>nul
  155. exit
  156. :chklnk
  157. if %debug%==1 echo 现在的目录是!cd!&pause
  158. del d:\temp.tmp >nul 2>nul
  159. set j="%~dp1"
  160. set filetmp="%~nx1"
  161. set j=!j:"=!
  162. set filetmp=!filetmp:"=!
  163. set fileurl=!filetmp!
  164. if %debug%==1 echo 传过来的数据是"%~1",取得路径=!j!,文件名=!filetmp!.&pause
  165. cd "!j!"
  166. if %debug%==1 echo 进入目录:"!j!",现在的目录是:%cd%
  167. if %debug%==1 echo --------------
  168. find /i /c "!j!" "!filetmp!">nul&&echo ..!filetmp!&&copy "!filetmp!" "%desk%">nul && goto :eof
  169. if %debug%==1 echo =============
  170. if %debug%==1 echo 从文件"!filetmp!"里查"!j!"成功则复制"!filetmp!"到"%desk%"完成后返回
  171. for /f "delims=" %%j in ('find ":" "!filetmp!" ^|findstr /r "^[A-z]:[\\]"') do set i=%%j& set j=%%~nxj
  172. if %debug%==1 echo 查找快捷方式路径“!i!”+文件名是“!j!”
  173. if "!i!"=="" echo 无效快捷路径!i!,丢弃.&set j=not& goto :eof
  174. if "!i:~-1!"=="\" (
  175. if %debug%==1 echo 遇到不同的lnk格式,致使全路径=“!i!”,文件名=“!j!”
  176. for /f "delims=" %%j in ('find "\" "!filetmp!" ^|findstr /r ".exe"') do set j=%%j
  177. set i=!i!!j!
  178. for /f %%j in ('echo !i!') do set j=%%~nxj
  179. if %debug%==1 echo 修正为全路径=“!i!”,文件名=“!j!”
  180. )
  181. if exist "!i!" echo .!filetmp!在其它目录里,但是正确的&&copy "!filetmp!" "%desk%">nul && goto :eof
  182. if not exist !j! for /f %%j in ('dir !j! /s /a /b') do set j=%%j&echo ..!j!在子目录里&set j=!j:%cd%\=!&echo 去掉前半截为!j!
  183. if not exist "!j!" echo 无效快捷方式!j!,丢弃.&set j=not& goto :eof
  184. if %debug%==1 echo 找到!filetmp!,文件是!j!,lnk文件不正确
  185. echo .LNK路径不对,在桌面另生成:!fileurl!===
  186. set oldpath="!cd!"
  187. (echo Set WshShell = WScript.CreateObject^("WScript.Shell"^)
  188. echo strDesktop = WshShell.SpecialFolders^("Desktop"^)
  189. echo set oShellLink = WshShell.CreateShortcut^(strDesktop ^& "\!fileurl!"^)
  190. echo oShellLink.TargetPath = "%cd%\!j!" '目标
  191. echo oShellLink.WindowStyle = 1 '参数1默认窗口激活,参数3最大化激活,参数7最小化
  192. echo oShellLink.Hotkey = ""
  193. echo oShellLink.IconLocation = "%cd%\!j!, 0"
  194. echo oShellLink.Description = ""
  195. echo oShellLink.WorkingDirectory = "%cd%\"
  196. echo oShellLink.Save
  197. )>"d:\temp.vbs"
  198. cscript.exe //nologo d:\temp.vbs >nul 2>nul
  199. if %debug%==1 echo !cd!生成了桌面的!fileurl!
  200. del d:\temp.vbs>nul 2>nul
  201. if not exist "%desk%\!fileurl!" (
  202. set fileurl=!fileurl:~0,-4!.url
  203. if %debug%==1 以下几句生成.url快捷文件
  204. echo [InternetShortcut]
  205. echo URL=File:///%cd%\!j!
  206. echo WorkingDirectory=%cd%
  207. echo ShowCommand=
  208. echo IconFile=%cd%\!j!
  209. echo IconIndex=^0
  210. echo HotKey=) >"%desk%\!fileurl!"
  211. if not exist "%desk%\!fileurl!" echo 不知道为什么没有生成桌面快捷方式&goto :eof
  212. goto :eof
  213. :green
  214. echo 查找到!fileurl!可能是安装入口
  215. for %%k in (un,卸,删,反安装) do if "!fileurl:%%k=!" gtr "!fileurl!" set fileurl=
  216. if %debug%==1 echo 如果!fileurl!里有un,卸,删,反安装,字样则把变量fileurl置空,现在是!fileurl!
  217. if -!fileurl!-==-- goto :eof
  218. echo -----找到并注册:!cd!\的"!fileurl!"
  219. set i=!fileurl:~-3!
  220. if /i "%i%"=="reg" call regedit /s "!fileurl!" & goto :eof
  221. if /i "%i%"=="exe" start /b "" "!cd!\!fileurl!" & goto :eof
  222. if /i "%i%"=="inf" call rundll32 SETUPAPI.DLL,InstallHinfSection DefaultInstall 128 .\!fileurl! & goto :eof
  223. ren "^!!fileurl!" "!fileurl!" > nul 1>nul 2>nul &&更名去掉“!”
  224. type !fileurl!|find /i /v "pause" >d:\temp.tmp && rem 去掉文件中的pause,更改exit为exit /b不退出cmd.exe
  225. echo @echo off >tmp.bat
  226. type d:\temp.tmp|find /i /v "exit" >>tmp.bat
  227. call cmd /c tmp.bat
  228. if %debug%==1  echo 结束时的目录是:“!cd!”老目录是:!oldpath!
  229. cd /d !oldpath!&&del tmp.bat>nul 2>nul&color 1f&echo off
  230. goto :eof
复制代码

TOP

回复  nevergiveup520

保存为vbs运行,出现提示框,点确定即可
pcl_test 发表于 2016-1-4 23:15


保存为VBS双击一闪而过,用系统提示的打开运行,得到的结果还是C盘下面的程序快捷方式,点击一下提示窗的确定就创建一个快捷方式,窗口提示的VBS实际存放的位置不是C盘目录。
   [attach]9471[/attach][attach]9472[/attach]


下面的这个是我在网上找到其他软件自带的创建快捷方式批处理,它这个可以创建但是只能创建一个,下面我附上代码及创建成功后的截图!
  1. @echo off
  2. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Duplicate Cleaner Pro.lnk""):b.TargetPath=""%~dp0Duplicate Cleaner\DuplicateCleaner.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")
复制代码
[attach]9482[/attach]
学以致用!不耻下问!

TOP

回复 35# 9zhmke


    谢谢 ,你这个我得有时间消化消化下,我刚刚学习这个!
学以致用!不耻下问!

TOP

回复 36# nevergiveup520

不清楚你电脑什么问题,代码都是没问题,你也可以换别的机试试。
只能再测试别的方法

保存为bat运行,看看这两段代码,那个显示的路径是正确的
  1. @echo off
  2. echo;批处理所在路径:%~pd0
  3. for /f "delims=" %%i in ('dir /a-d /b *.exe') do echo;%%~fi
  4. pause
复制代码
  1. @echo off
  2. echo;批处理所在路径:%~pd0
  3. for /f "delims=" %%i in ('dir /a-d /b "%~pd0*.exe"') do echo;%%~fi
  4. pause
复制代码

TOP

回复  nevergiveup520

不清楚你电脑什么问题,代码都是没问题,你也可以换别的机试试。
只能再测试别的 ...
pcl_test 发表于 2016-1-5 18:13



上面的两段代码没有问题,结果都是正确的。 你说的系统变量问题  我自己没有特意更改过啊,我的是win10,64位系统。
学以致用!不耻下问!

TOP

本帖最后由 pcl_test 于 2016-1-5 18:48 编辑

回复 39# nevergiveup520

没有问题?不是显示没有找到exe文件?
再来一段测试
  1. @echo off
  2. echo;批处理所在路径:%~pd0
  3. cd /d "%~pd0"
  4. for %%a in (*.exe) do echo;%%a^|%%~fa
  5. echo;当前环境:%cd%
  6. set path
  7. pause
复制代码

TOP

回复  nevergiveup520

没有问题?不是显示没有找到exe文件?
pcl_test 发表于 2016-1-5 18:39


上面的可能是我没有用管理员权限运行造成的

我重新用管理员权限又测试了下:下面的这段代码得到的是C盘的程序,你的另外的一段一个参数为"%~pd0*.exe"'的用管理员权限运行一闪而过,不用管理员权限就是刚才上面的只有bat的路径找不到程序。
  1. @echo off
  2. echo;批处理所在路径:%~pd0
  3. for /f "delims=" %%i in ('dir /a-d /b *.exe') do echo;%%~fi
  4. pause
复制代码
学以致用!不耻下问!

TOP

回复  nevergiveup520

没有问题?不是显示没有找到exe文件?
再来一段测试
pcl_test 发表于 2016-1-5 18:39


没有用管理员权限得到下面的这些结果

用管理员权限运行得到的是下面的这个:
学以致用!不耻下问!

TOP

本帖最后由 pcl_test 于 2016-1-5 18:59 编辑

回复 42# nevergiveup520
怎么又换成桌面了?桌面有exe文件?

TOP

回复 43# pcl_test


    你没有看到路径是我没有用管理员权限得到的,我后来用管理员权限才有显示路径的。已经修改该回答了
学以致用!不耻下问!

TOP

回复 44# nevergiveup520

你是在H:\lvse_ruanjian运行的吗?

TOP

返回列表