åben tekst fil

Skal den gemme filen igen.. med indhold i bare uden "

Ja lige præcist

først læse fil:
Set fso = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = fso.OpenTextFile(Server.Mappath("\mappe_min_fil_er") & "\Min_txt_fil.txt",2,false,0)

Deleteq = Replace(textStreamObject, """, "")
fso.write Deleteq

Ups. fejl

skal hedde
textstreamObject.write deleteq

Og de der her skal også med til sidst...

textStreamObject.Close
Set textStreamObject = Nothing
Set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = fso.OpenTextFile(Server.Mappath("C:\test") & "\test.txt",2,false,0)
Deleteq = Replace(textStreamObject, """, "")

fso.write Deleteq
textStreamObject.Close
Set textStreamObject = Nothing
Set fso = Nothing

----------------------
Jeg får denne fejl:
c:\test\ret.vbs(4, 45) Microsoft VBScript compilation error: Unterminated string constant

Min fejl prøv her:
Set fso = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = fso.OpenTextFile("c:\test\test.txt",1,false,0)
deleteq = textStreamObject.readall
deleteq = Replace(deleteq, """","")
set gem = fso.createtextfile("test.txt",true,false)
gem.write deleteq

Mange Tak Den virker ;-)
ttopholm smid et svar... :-)
-----------------------------

Set fso = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = fso.OpenTextFile("c:\test\test.txt",1,false,0)
deleteq = textStreamObject.readall
deleteq = Replace(deleteq, """","")
set gem = fso.createtextfile("c:\test\test2.txt",true,false)
gem.write deleteq

Svar... :-)

Igen Mange tak for hjælpen :-)