VBS案例陳述失敗

這個案例陳述失敗......它就像它從來沒有看到任何幫助將不勝感激。VBS案例陳述失敗

Dim Runmode 

Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("D:\Program Files (x86)\Logility\SPC8.0\Input\FG352F.txt",1) 
RunMode = objFileToRead.ReadAll() 
objFileToRead.Close 
Set objFileToRead = Nothing 
MsgBox(RunMode) 


select Case RunMode 
    Case "D" 
    Set oShell = CreateObject("WSCript.shell") 
    oShell.run "D:\Scripts\RTL_DAILY.bat" 

    Case "W" 
    Set oShell = WScript.CreateObject("WSCript.shell") 
    oShell.run "D:\Scripts\RTL_WEEKLY.bat" 

    Case "M" 
    Set oShell = WScript.CreateObject("WSCript.shell") 
    oShell.run "D:\Scripts\RTL_MONTHLY.bat" 
End Select

來源

2013-12-23 user3130171

「RunMode」變量的實際內容是什麼。你用'MsgBox'打印它，但是不會告訴你字符串的開始/結尾是否有空格。您正在按照確切的值執行「Select Case」，但您從文件中讀取的內容可能會有所不同。 – xxbbcc

假設該文件包含類似「M」，也許一個EOL一個字母，使用.ReadLine（）擺脫EOL的自動的。

一般來說，捕捉（和轉儲）意外的情況總是一個好主意。

來源

2013-12-23 17:02:29

VBS案例陳述失敗

回答

相關問題