編譯錯誤800A0401

我最近一直在尋找解決方案來解決我的問題，並且遇到了這個網站。我試圖按照有關如何從衆多其他網站解決我的問題的說明，但我沒有這樣的事情完全好....這裏是我的問題：編譯錯誤800A0401

Windows腳本宿主腳本：C：\的Documents and Settings \我\應用數據\ BITS2 \ windows.vbs 行：33 字符：428 錯誤：語句應爲結束代碼：800A0401 來源：Microsoft VBScript編譯錯誤

我發現劇本，注意到第33行沒有428個字符，所以我現在真的停留在做什麼......這是整個腳本PT：

Set WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptions                                        &n bsp;                                        &nb sp;                 Set WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell") 
appdata= WshShell.ExpandEnvironmentStrings("%appdata%") 
strZipFile = appdata & "\bits2\file.zip" 
outFolder = appdata & "\bits2" 
Set objShell = CreateObject("Shell.Application") 
Set objSource = objShell.NameSpace(strZipFile).Items() 
Set objTarget = objShell.NameSpace(outFolder) 
intOptions = 256 
objTarget.CopyHere objSource, intOptions

我希望你能幫忙，謝謝。

來源

2011-09-05 Chelsie

9號線看起來錯'objTarget.CopyHere objSource，intOptionsSet。 WshShell = CreateObject（「Wscript.Shell」）'。複製'n粘貼錯誤？ – 2011-09-05 12:34:45

http://stackoverflow.com/q/7308287/69820 – 2011-09-05 14:10:13

line 33 does not have 428 characters in it

它實際上有483個字符，是無效的：

objTarget.CopyHere objSource, intOptions                                        &n bsp;                                        &nb sp;                 Set WshShell = CreateObject("Wscript.Shell")

來源

2011-09-05 12:26:59 Helen

編譯錯誤800A0401

回答

相關問題