求助如何批量创建快捷方式

pcboy58

\\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

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

谢谢朋友  已经收到完美达到理想效果

pcboy58

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. )

复制代码

前面都正常,生成出的快捷方式却不能按照顺序移动到相应的文件夹,会出错,求帮助

回家路上

可以说下什么错？是没有达到移动的要求还是没成功。具体

pcl_test

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

pcl_test

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. }

复制代码