pcl_test

你的路径是否正确？

pcl_test

回复 15# nevergiveup520

保存为vbs运行，把结果贴出来

Set objws = wscript.CreateObject("Wscript.Shell")
msgbox "桌面："& objws.SpecialFolders("Desktop")&vbCrLf&"VBS所在路径："& objws.CurrentDirectory
复制代码

pcl_test

回复 18# nevergiveup520

居然没有权限，试试以管理员身份运行或者换到其他盘，再或者看看D:\Users\Desktop文件夹，右键，属性>安全，添加当前用户并赋予相应权限

pcl_test

回复 20# nevergiveup520


    不是，说的是你生成快捷方式的批处理

pcl_test

回复 23# nevergiveup520

保存为vbs运行

Set objws = wscript.CreateObject("Wscript.Shell")
'换到其他盘试试
Set objLink = objws.CreateShortcut("E:\123.lnk")
objLink.Save
复制代码

pcl_test

保存为vbs运行，测试对桌面文件夹是否有相应权限

Set objws = wscript.CreateObject("Wscript.Shell")
desktop = objws.SpecialFolders("Desktop")
Set objLink = objws.CreateShortcut(desktop&"\123测试.lnk")
objLink.Save
msgbox "桌面："& desktop
复制代码

pcl_test

保存为bat运行，对照检测用

' 2>nul 3>nul&cls&@echo off
'&for /f "delims=" %%i in ('dir /a-d /b *.exe') do cscript -nologo -e:vbscript "%~f0" "%%~ni" "%%~fi"
'&pause&exit /b

Set objws = wscript.CreateObject("Wscript.Shell")
Desktop = objws.SpecialFolders("Desktop")

'在H盘创建快捷方式
Set objLink1 = objws.CreateShortcut("H:\" & WScript.Arguments(0) & ".lnk")
objLink1.TargetPath = WScript.Arguments(1)
objLink1.Save

'在桌面创建快捷方式
Set objLink2 = objws.CreateShortcut(Desktop & "\" & WScript.Arguments(0) & ".lnk")
objLink2.TargetPath = WScript.Arguments(1)
objLink2.Save
复制代码

pcl_test

回复 29# nevergiveup520

' 2>nul 3>nul&cls&@echo off
'&echo;批处理所在路径：%~pd0
'&for /f "delims=" %%i in ('dir /a-d /b *.exe') do cscript -nologo -e:vbscript "%~f0" "%%~ni" "%%~fi"
'&pause&exit /b
Set objws = wscript.CreateObject("Wscript.Shell")
Desktop = objws.SpecialFolders("Desktop")

'在桌面创建快捷方式
lnk = Desktop & "\" & WScript.Arguments(0) & ".lnk"
Set objLink = objws.CreateShortcut(lnk)
objLink.TargetPath = WScript.Arguments(1)
WSH.echo lnk & vbCrLf &"程序所在路径：" &WScript.Arguments(1)
objLink.Save
复制代码

pcl_test

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

pcl_test

回复 33# nevergiveup520

保存为vbs运行，出现提示框，点确定即可

Set fso = CreateObject("scripting.filesystemobject")
Set objws = wscript.CreateObject("Wscript.Shell")
desktop = objws.SpecialFolders("Desktop")
t = "桌面："& desktop& vbCrLf &"VBS所在路径："& objws.CurrentDirectory & vbCrLf
Set Folder = fso.GetFolder(objws.CurrentDirectory)
Set Files = Folder.Files
For Each f In Files
    Ext = LCase(fso.GetExtensionName(f))
    IF Ext = "exe" Then
        lnk = Desktop & "\" & Left(f.Name, InStrRev(f.Name, ".")-1) & ".lnk"
        Set objLink = objws.CreateShortcut(lnk)
        objLink.TargetPath = f
        objLink.Save
        msgbox t & lnk & vbCrLf &"程序所在路径：" &f
    End If
Next
复制代码

pcl_test

回复 36# nevergiveup520

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

保存为bat运行，看看这两段代码，那个显示的路径是正确的

@echo off
echo;批处理所在路径：%~pd0
for /f "delims=" %%i in ('dir /a-d /b *.exe') do echo;%%~fi
pause
复制代码

@echo off
echo;批处理所在路径：%~pd0
for /f "delims=" %%i in ('dir /a-d /b "%~pd0*.exe"') do echo;%%~fi
pause
复制代码

pcl_test

回复 39# nevergiveup520

没有问题？不是显示没有找到exe文件？
再来一段测试

@echo off
echo;批处理所在路径：%~pd0
cd /d "%~pd0"
for %%a in (*.exe) do echo;%%a^|%%~fa
echo;当前环境：%cd%
set path
pause
复制代码

pcl_test

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

pcl_test

回复 44# nevergiveup520

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

pcl_test

回复 47# nevergiveup520

你在H:\lvse_ruanjian运行40楼的代码能显示正确的exe路径？