在VB脚本

在VB脚本

问题描述：

语句错误的预计结束时，我正在运行的VB脚本其示值误差谁能帮助是什么错误我找不到它是什么显示错误在VB脚本

这是VBA或vb.net？ – Comintern

Vba ................. – avi

@FloatingKiwi我试过了，但它仍然显示相同的错误 – avi

答

VBScript不具有强类型的错误。一切都是Variant。对于解决方案，编辑中的错误消息相当清楚：

行：4字符：16 - 语句的预期结束。

所以看代码...

Dim bSendEmail as boolean = true 
'    ^char 16

......它告诉你结束发言那里。它应该是：

Dim bSendEmail 
bSendEmail = True

如果我使用这个我得到22行错误“对象不支持此属性或方法“ – avi

@avi - 第22行后有什么变化？如果它是'myemail = CreateObject（“CDO.Message”）'，那么你一开始就缺少'Set'。如果它是另一行，[CDO文档在这里]（https://msdn.microsoft.com/en-us/library/ms526130（v = exchg.10）.aspx）。 – Comintern

如果我改变这一行，我的逻辑丢失，但之前它在布尔变化不工作后其工作。我的目标是我试图每15分钟检查一次文件夹，它每15分钟生成2个文件，如果没有文件，现在应该发送电子邮件，现在我更改此行后发送电子邮件，当我运行代码无论是否文件是否存在 – avi

答

CreateObject (Windows Script Host) method创建一个COM对象。

您需要使用SET statement分配的对象引用变量：

''' … 
Dim bSendEmail: bSendEmail = True ''' colon instead new line: it's not a good practice 
''' … 

If bSendEmail Then 
    ''' ↓↓↓   
     SET myemail = CreateObject("CDO.Message") 
     ''' … 
     SET myemail = Nothing 
    ''' ↑↑↑ 
End If

如果我改变这条线，我的逻辑丢失，但之前它在布尔变化不工作后其工作。我的目标是我试图每15分钟检查一次文件夹，它每15分钟产生2个文件，如果没有文件，它应该发送电子邮件后，现在我改变这一行发送电子邮件时，我运行代码无论是否文件是否存在 – avi

@avi我不明白你的额外要求。请提出另一个问题;目前的问题被认为是回答... – JosefZ

相关推荐