hent og gem i en fil

Set FSO = CreateObject("Scripting.FileSystemObject")

'Funktion til at åbne:
Function OpenFile(strFile)
    If Not FSO.FileExists(strFile) Then
        Response.Write "Filen eksisterer ikke"
        Exit Function
    End If
   
    Dim F As TextStream
    Set F = FSO.OpenTextFile(strFile, ForReading)
   
    OpenFile = F.ReadAll
   
    F.Close
    Set F = Nothing
End Function

'Sub til at gemme:
Sub SaveFile(strFile, strContent)
    Dim F As TextStream
    Set F = FSO.CreateTextFile(strFile, True)
   
    F.Write strContent
    F.Close
   
    Set F = Nothing
End Sub

'Her udskrives filens indhold vha. ovenstående funktion "OpenFile":
Response.Write OpenFile(Server.MapPath("dinfil.txt"))

Dim strText
strText = "Dette er teksten, som skal skrives til filen"

'Her skrives teksten til filen vha. af ovenstående sub "SaveFile":
SaveFile Server.MapPath("dinfil.txt"), strText


/Mikkel

Oops.. husk at fjerne "As TextStream" i funktionen "OpenFile" og sub'en "SaveFile" i ovenstående kode!