Question

vbs脚本运行出错

On error resume next
　　Dim fso, d,dc,f
　　Set fos =
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,”主人：您好！”
　　Next
运行出现行：2
字符：1
错误：无效字符
代码：800A048
还是不行啊

Answer 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吧！

Answer 2

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

Answer 3

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