Habe das Problem geloest!!! einfach mal oben folgende zeilen hinzufuegen:
Const ForAppending = 8 Const ForReading = 1 Const ForWriting = 2 '---- format Values ---- Const TristateFalse = 0 Const TristateMixed = -2 Const TristateTrue = -1 Const TristateUseDefault = -2 Dann funtz das wunderbar. Nur koennte mir mal jemand erklaeren wieso ich dies mit einbinden muss und das nicht ein teil der komponente ist??/ Danke. Roni -----Original Message----- From: Roni Schuetz [mailto:[EMAIL PROTECTED]] Sent: Sunday, June 02, 2002 6:17 PM To: ASP Diskussionsliste fuer Anfaenger Subject: [aspdebeginners] CreateObject("Scripting.FileSystemObject") ????????????????? Guten Tag, habe da ein problem mit CreateObject. Ich moechte in meiner App. mit files arbeiten und erhalte folgende Fehlermeldung: c:\inetpub\wwwroot\advice\admin\profile\helperError Occurred. Microsoft VBScript runtime error '800a0005' Invalid procedure call or argument /advice/admin/profile/Default.asp, line 27 den code den ich benutzte, ist aus dem MSDN herauskopiert und ein bisschen optimieziert: <% 'Get TextFiles Dim fso, MyFile Dim wh, path Dim strEng, strHeb ' set object Set fso = CreateObject("Scripting.FileSystemObject") ' Print Map Path path = Server.MapPath("helper\") wh = "WIDTH='200' HEIGHT='200'" Response.Write path 'check language if Request.QueryString("lang") = "" then Response.Write "Error Occurred." lang = "eng" end if if lang = "eng" then Set MyFile= fso.OpenTextFile(path & "profile_eng.txt", ForReading, True, TristateTrue) <-- LINE 27 strEng = MyFile.ReadAll MyFile.Close elseif lang = "heb" then Set MyFile= fso.OpenTextFile(path & "profile_heb.txt", ForReading, True, TristateTrue) strEng = MyFile.ReadAll MyFile.Close end if %> Mfg, Roni Schuetz | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [EMAIL PROTECTED] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
