Visual Basic語句結束？

所以當我運行下面的代碼時，第三行的錯誤說明了語句的結尾。有任何想法嗎？Visual Basic語句結束？

Set objShell = WScript.CreateObject("WScript.Shell") 
Set lnk = objShell.CreateShortcut("C:\Users\%USERDATA%\Desktop\Shutdown.LNK") 
Dim strUserProfile as String 
strUserProfile = objShell.ExpandEnvironmentStrings("%USERPROFILE%") 

lnk.TargetPath = "C:\Users\" & strUserProfile & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\shutdown.bat" 
lnk.Arguments = "" 
lnk.Description = "Shutdown" 
'lnk.HotKey = "ALT+CTRL+F" 
lnk.IconLocation = "C:\Users\" & strUserProfile & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\shutdown.bat, 2" 
lnk.WindowStyle = "1" 
lnk.WorkingDirectory = "C:\Users\" & strUserProfile &"\AppData\Roaming\Microsoft\Windows\Start Menu\Programs" 
lnk.Save 
Set lnk = Nothing

來源

2014-09-23 Eric Lopushansky

我希望的程序IconLocation後與TARGETPATH的目標創建快捷方式的位置。由於某些原因它錯誤聲明變量。 – 2014-09-23 12:43:21

它可能不會。它說第3行的字符20.它可能是下一行的錯誤。 – 2014-09-23 12:45:44

VBScript是一種無類型語言。放下'As String'。 – Bond 2014-09-23 12:45:44

在VBScript中，沒有「String」對象這樣的事情，所以你不能做一個Dim strMyString As String。

所以你的情況，你會簡單地做：Dim strUserProfile

來源

2014-09-23 12:46:51 Postlagerkarte

Visual Basic語句結束？

回答

相關問題