Skriva till textfil.

[David6]

>Hej! Jag har följande kod på min asp sida:

 

set objFSO = server.CreateObject ("Scripting.FileSystemObject")

dim strFoldir

strFoldir = "c:\ptl\" & refnr

set objFolder = objFSO.CreateFolder (strFoldir)

 

strFoldir = strFoldir & "\info.txt"

set objTStream = objFSO.CreateTextFile (strFoldir )

 

set objTStream = objFSO.OpenTextFile (strFoldir ,ForWriting ,false)

objTStream.writeline "David"

 

>och får fel meddelandet:

 

Server.CreateObject Failed

 

>någon som vet varför?

 

 

 

Hej :-)

[Esuk]

du skriver inte på vilken rad du får felmedelandet .. är det på första ?

 

 

Don't Underestimate The Power Of Esuk ...

 

[David6]

nej det är OpenTextFile som genererar felet:

 

set objTStream = objFSO.OpenTextFile (strFoldir ,ForWriting ,false)

 

 

 

 

[m a r c u s]

Giltiga värden på den andra parametern är ForReading (=1) eller ForAppending (=8). Byt till

 

set objTStream = objFSO.OpenTextFile (strFoldir ,ForAppending ,false)

 

Dessa är default-värden (tror jag) så det räcker med strFoldir.

 

 

[inlägget ändrat 2001-08-21 20:15:17 av M a r c u s]

[David6]

-Körde med:

 

set objTStream = objFSO.OpenTextFile (strFoldir)

 

-men då blev det:

 

Server.CreateObject Failed

 

-på raden efter:

 

objTStream.writeline "david"

 

 

 

 

[David6]

Kan det inte ha något att göra med alla create kommandon? För många eller nåt?

Har du någon fungerande kod som öppnar/skapar och skriver till textfil?

 

 

 

 

 

[connyjohansson]

Hej.

 

skulle försöka "nolla/stänga" objTStream efter denna rad.

 

"set objTStream = objFSO.CreateTextFile (strFoldir )"

 

 

[David6]

-Gjorde så men fick felet:

 

Server.CreateObject Failed

 

-på raden:

 

set objTStream = objFSO.OpenTextFile (strFoldir)

 

-igen.

 

Kan felet ligga hur allt skapas? Hänger det inte ihop?

 

 

 

[Ulf T]

Jag är lite nyfiken på varför du vill nolla objTStream direkt efter att du skapat objektet? Hade du inte tänkt utnyttja objektet?

 

[connyjohansson]

När du får felmedelandet, vad har programmet då presterat???

Fins Foldern: ("c:\ptl\" & refnr )

fins filen "c:\ptl\" & refnr & \info.txt

 

[David6]

Mappen och filen skapas men det går inte att skriva till filen.

 

[connyjohansson]

Har processen "skapa" info.txt avslutats, är filen fri att editera med Notepad???

 

[David6]

Ja , ja. Så jag ska säga till besökaren som utlöser funktionen att han tar kontakt med administratören för den server han besökt , så att denna i sin tur öppnar notepad och editerar filen.

Vart finns det sådana administratörer?

Snabb måste han vara också.

 

[connyjohansson]

Nej,Nej;Nej..

Om filen går att editera med Notepad så är den frisläppt. Annars är det så att skapandeprocessen hänger sig av nån orsak.

 

[m a r c u s]

Då du skapar en ny fil är den redan öppen för text-inmatning.

Din kod ska alltså vara:

 

dim strFoldir
strFoldir = "c:\ptl\" & refnr
set objFSO = server.CreateObject( "Scripting.FileSystemObject" )
set objFolder = objFSO.CreateFolder ( strFoldir ) 
set objTStream = objFSO.CreateTextFile ( strFoldir & "\info.txt" )
objTStream.writeline( "David" )
set objFSO = nothing
set objTStream = nothing