Das alte Leid der Quellcodes aus dem MSDN oder der Makros aus Office, wenn man sie woanderst implementieren muss. Aber Konstanten sind ja soo toll...
> -----Urspr�ngliche Nachricht----- > Von: Roni Schuetz [mailto:[EMAIL PROTECTED]] > Gesendet: Sonntag, 2. Juni 2002 18:50 > An: ASP Diskussionsliste fuer Anfaenger > Betreff: [aspdebeginners] RE: CreateObject("Scripting.FileSystemObject") > ????????????????? > > > 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 | 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
