2016-10-04 99 views
-3

語句錯誤的預計結束時,我正在運行的VB腳本其示值誤差誰能幫助是什麼錯誤我找不到它是什麼顯示錯誤在VB腳本

+0

這是VBA或vb.net? – Comintern

+0

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

+0

@FloatingKiwi我試過了,但它仍然顯示相同的錯誤 – avi

回答

3

VBScript不具有強類型的錯誤。一切都是Variant。對於解決方案,編輯中的錯誤消息相當清楚:

行:4字符:16 - 語句的預期結束。

所以看代碼...

Dim bSendEmail as boolean = true 
'    ^char 16 

......它告訴你結束髮言那裏。它應該是:

Dim bSendEmail 
bSendEmail = True 
+0

如果我使用這個我得到22行錯誤「對象不支持此屬性或方法「 – avi

+0

@avi - 第22行後有什麼變化?如果它是'myemail = CreateObject(「CDO.Message」)',那麼你一開始就缺少'Set'。如果它是另一行,[CDO文檔在這裏](https://msdn.microsoft.com/en-us/library/ms526130(v = exchg.10).aspx)。 – Comintern

+0

如果我改變這一行,我的邏輯丟失,但之前它在布爾變化不工作後其工作。我的目標是我試圖每15分鐘檢查一次文件夾,它每15分鐘生成2個文件,如果沒有文件,現在應該發送電子郵件,現在我更改此行後發送電子郵件,當我運行代碼無論是否文件是否存在 – avi

0

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 
+0

如果我改變這條線,我的邏輯丟失,但之前它在布爾變化不工作後其工作。我的目標是我試圖每15分鐘檢查一次文件夾,它每15分鐘產生2個文件,如果沒有文件,它應該發送電子郵件後,現在我改變這一行發送電子郵件時,我運行代碼無論是否文件是否存在 – avi

+0

@avi我不明白你的額外要求。請提出另一個問題;目前的問題被認爲是回答... – JosefZ