vbs我这里怎么错了

软件 2022-05-15

为什么我用电脑输入最简单的vbs程序也报错？

你可能是从网上复制的代码？网页上复制时，可能会复制一些不可见的字符导致这种错误。

删掉vbs文件，新建文本文档，自己输入代码，再测试。

或者打开cmd，执行以下命令：

d:
echomsgbox"helloworld!">"helloworld".vbs
"helloworld".vbs

效果可能如下：

或者用十六进制编辑工具编辑vbs，看是否有不可显示字符。

请问这个vbs代码哪里错了？

Dim fso,File,Num,Temp,Temp2,Num2,Num3,Temp3,Temp4,Num4,Num5,Temp5,outname Set fso = CreateObject("scripting.filesystemobject") File=WScript.Arguments(0) Num=InputBox("请输入每份字符数：") Set Re=fso.OpenTextFile(File,1) Temp = Re.ReadAll Num2=Len(Temp) Num2=Num2/Num Num2=Fix(Num2) if num2=0 then msgbox("分割未完

求点拨！我的VBS代码哪里错了？

改成这样就行，其它都不要： dim a a=InputBox("斗图文件，请输入密码！") if a="yu321253945" then Dim MZ Set MZ=WScript.CreateObject("WScript.shell") MZ.run "C:\Users\Administrator\Desktop\余掌的编程\新建文件夹\新建文件夹\新建文件夹\新建文件夹\新建文件夹\新建文件夹\新建文件夹\新建文件夹\新建文件夹\新建文件夹\斗图" else Msgbox"密码错误！",o,"再来一次" End IF

请问这个VBS代码哪里错了

'你这错的地方也太多了吧，很多代码都不规范，我修改了一下，测试可以正常使用！如果可以正常使用请采纳，谢谢！ Dim a, b, c, s, age Set fs = CreateObject("Scripting.FileSystemObject") Name = wscript.ScriptName fullname = wscript.ScriptFullName Path = Replace(fullname, Name, "") a = InputBox("请在对话框中填写你真实的姓名！" & vbCrLf & vbCrLf & "稍后将会给你意外的惊喜！！ " & vbCrLf &

vbs 我这样写我不知道错在哪里了老是说语句未结束

把最后一行括号后面的“&”符号删除就可以，这个符号就相当于“+”这样的运算符号，需要两边都有内容才对，就象“5+”没有意义一样，“Msgbox(...)&”这样的语句也是没有含义的，计算机无法处理，所以会给你说有错。我全部给你修改正确，并且写为如下的完整代码，你可以粘贴到HTML文件中浏览器打开，我在IE6上测试通过，其它版本应该没有问题： <script language=vbscript> dim t(3) t0="================ →大家好;===========================" t1="========★★★★我的名字是老鼠★★★★========"

标签：信息技术编程 vbs 代码爱情