vbs脚本运行出错

2024-12-15 04:01:29

推荐回答（3个）

回答1：

在第二行的第一个字中，你用了全角的空格，所以会出现上述问题，请将程序中的全部全角字符改成半角。因为你的代码中有多处错误，请直接拷贝我修改后的代码：
On error resume next
Dim fso, d,dc,f
Set fso=CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d in dc
Set f = fso.GetFile(d&"\请带我回家.txt")
If Left(f,2)=d Then
msgbox "我是您的："&d&"盘，请带我回家！",vbcritical,"主人：您好！"
End If
Next
程序名不要太复杂，就用LetBack.vbs吧！

回答2：

删掉脚本里的全角空格,或是换成半角的,全角空格在大多数程序设计语言里不等同于半角空格,多数会被当作非法/无效字符.

回答3：

变量fos不正确，引号“”也不能用全角