Tilføj tekst til en fil

public function createFile(paramFile)
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objMyFile = objFSO.CreateTextFile(paramFile)
  objMyFile.WriteLine("Timestamp -> " & DATE & ", " & TIME)
  objMyFile.CLose
end function


    Dim fso, file, stream
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile(paramFile)
    MsgBox file.ReadLine
    file.Close
    Set stream = Nothing
    Set file = Nothing
    Set fso = Nothing

Er det sådan du mener?

//>Rune

Nej ikke helt, det jeg gerne vil er og kunne skriver noget mere i filen!

Function AppendToFile(paramFile)
  Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
  Dim fso, f, ts
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile(paramFile)
  Set ts = f.OpenAsTextStream(ForAppending, TristateUseDefault)
  ts.Write "Hello World"
  ts.Close
End Function

Prøv den her - har ikke testet det, men det burde virke!

public function createFile(paramFile)

    Dim fso, file, stream
    Set fso = CreateObject("Scripting.FileSystemObject")
        Set file = fso.OpenTextFile("C:\test.txt")
            While Not file.AtEndOfStream
                strTxt = strTxt & file.ReadLine
            Wend
            file.Close
            Set stream = Nothing
        Set file = Nothing
    Set fso = Nothing
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objMyFile = objFSO.CreateTextFile(paramFile)
  objMyFile.WriteLine(strTxt & vbCrlf & "Timestamp -> " & DATE & ", " & TIME)
  objMyFile.CLose
end function

//>Rune