All pastes #404433 Raw Edit

Unnamed

public text v1 · immutable
·published 2007-03-21 00:29 UTC
rendered paste body
Dim logfileWriter
  Dim logfile
  Dim path

  path = Server.MapPath("/beta/Data/output.txt")
  Set logfileWriter = CreateObject("Scripting.FileSystemObject")

  f logfileWriter.FileExists(path) Then
    Set logfile = logfileWriter.OpenTextFile(path, 8)
    logfile.WriteLine(strAbsFile)
    logfile.Close()
  Else
    Set logfile = logfileWriter.CreateTextFile(path)
    logfile.WriteLine(strAbsFile)
    logfile.Close()
  End If
    
  Set logfileWriter = Nothing
  Set logfile = Nothing
  Set path = Nothing