Board logo

标题: [文本处理] 求助如何批量创建快捷方式 [打印本页]
作者: pcboy58    时间: 2014-12-3 15:02     标题: 求助如何批量创建快捷方式

\\file\2014年11月\2014-11-17\T1702wf192-d(z)\02wf192\
\\file\2014年11月\2014-11-17\t1702wg247-f(z)\02wg247\
\\file\2014年11月\2014-11-17\t17dxa840-d(z)\dxa840\
\\file\2014年11月\2014-11-17\t17dkf1316-e(z)\dkf1316\

如何完成后  快捷文件夹名称 是最后两个\\之间的字符如图

求指教谢谢大家
作者: CrLf    时间: 2014-12-3 18:08

  1. 1>1/* :

  2. @echo off

  3. for %%a in (

  4. 	"\\file\2014年11月\2014-11-17\T1702wf192-d(z)\02wf192\"

  5. 	"\\file\2014年11月\2014-11-17\t1702wg247-f(z)\02wg247\"

  6. 	"\\file\2014年11月\2014-11-17\t17dxa840-d(z)\dxa840\"

  7. 	"\\file\2014年11月\2014-11-17\t17dkf1316-e(z)\dkf1316\"

  8. ) do cscript -nologo -e:jscript %0 %%~a

  9. pause&exit

  10. */

  11. 

  12. var path = WScript.Arguments(0)

  13. var name = path.replace(/.*\\(.+?)\\$/,'$1')

  14. var ws = new ActiveXObject('WScript.Shell')

  15. var desktop = ws.SpecialFolders('Desktop')

  16. 

  17. with(ws.CreateShortcut(desktop + '\\' + name + '.lnk')){

  18. 	TargetPath = path

  19. 	WindowStyle = 1

  20. 	Description = name

  21. 	Save()

  22. }
复制代码
作者: pcboy58    时间: 2014-12-3 19:04

谢谢朋友  已经收到完美达到理想效果
作者: pcboy58    时间: 2015-9-3 10:57     标题: 批处理生成出的快捷方式为何不能按照顺序移动到相应的文件夹？

  1. 1>1/* :

  2. @echo off

  3. for %%a in (

  4. 

  5. "\\l8D150722WE02--b(z)\D150722WE02\"

  6. "\\l19D150816WB01--d(z)\D150816WB01\"

  7. "\\L30DY05K121-e(z)\DY05K121\"

  8. "\\L06dxb706--f(h)\dxb706\"

  9. "\\l19dy05t103--c(h)\dy05t103\"

  10. "\\L31D150824WE01--a(h)\D150824WE01\"

  11. "\\L0739h124-e(h)\39h124\"

  12. "\\l19D150810WK02--f(h)\D150810WK02\"

  13. ) do cscript -nologo -e:jscript %0 %%~a

  14. pause&exit

  15. */

  16. 

  17. var path = WScript.Arguments(0)

  18. var name = path.replace(/.*\\(.+?)\\$/,'$1')

  19. var ws = new ActiveXObject('WScript.Shell')

  20. var desktop = ws.SpecialFolders('Desktop')

  21. 

  22. with(ws.CreateShortcut(desktop + '\\' + name + '.lnk')){

  23.         TargetPath = path

  24.         WindowStyle = 1

  25.         Description = name

  26.         Save()

  27. }

  28. 

  29. Setlocal ENABLEDELAYEDEXPANSION

  30. dir *.lnk /od /a-d /b >alllnk.txt

  31. set n=0

  32. for /f %%f in (alllnk.txt) do (

  33.     set /a m=!n!%%3

  34.     set /a k=!n!/3

  35.     if "!m!"=="0" (

  36.         md dir!k!

  37.     )

  38.     move %%f dir!k! >NUL

  39.     set /a n="!n!+1"

  40. )
复制代码
前面都正常,生成出的快捷方式却不能按照顺序移动到相应的文件夹,会出错,求帮助
作者: 回家路上    时间: 2015-9-3 12:03

可以说下什么错？是没有达到移动的要求还是没成功。具体
作者: pcl_test    时间: 2015-9-3 12:42

本版规则
1、求助时，务必在顶楼一次性把问题交代清楚，建议给出完整有针对性的样本，样本过大可发网盘分享链接。勿发无意义的标题
2、使用 code 标记把代码部分括起来（单击回复框的 <> 按钮，复制粘贴代码进去），以便复制。问题解决后，请编辑顶楼帖子在标题前面注明[已解决]http://www.bathome.net/thread-3473-1-1.html
3、提问前先使用论坛搜索，相同或类似的问题就无需再发帖了
作者: pcl_test    时间: 2015-9-3 12:42

  1. 1>1/* :

  2. @echo off&Setlocal ENABLEDELAYEDEXPANSION

  3. for %%a in (

  4. "\\l8D150722WE02--b(z)\D150722WE02\"

  5. "\\l19D150816WB01--d(z)\D150816WB01\"

  6. "\\L30DY05K121-e(z)\DY05K121\"

  7. "\\L06dxb706--f(h)\dxb706\"

  8. "\\l19dy05t103--c(h)\dy05t103\"

  9. "\\L31D150824WE01--a(h)\D150824WE01\"

  10. "\\L0739h124-e(h)\39h124\"

  11. "\\l19D150810WK02--f(h)\D150810WK02\"

  12. ) do cscript -nologo -e:jscript %0 %%~a

  13. 

  14. ::如果批处理不在桌面先切换目录或指定路径

  15. ::for /f "tokens=2,*" %%i in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "Desktop"') do set "desk=%%j"

  16. ::cd /d "%desk%"

  17. set n=0

  18. for /f "delims=" %%f in ('dir *.lnk /od /a-d /b') do (

  19.     set/a m=!n!%%3,k=!n!/3

  20.     if "!m!"=="0" md "dir!k!"

  21.     move "%%f" "dir!k!\" >nul

  22.     set/a n+=1

  23. )

  24. pause&exit

  25. */

  26. 

  27. var path = WScript.Arguments(0)

  28. var name = path.replace(/.*\\(.+?)\\$/,'$1')

  29. var ws = new ActiveXObject('WScript.Shell')

  30. var desktop = ws.SpecialFolders('Desktop')

  31. 

  32. with(ws.CreateShortcut(desktop + '\\' + name + '.lnk')){

  33.         TargetPath = path

  34.         WindowStyle = 1

  35.         Description = name

  36.         Save()

  37. }
复制代码




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2