title image


Smiley Dann versuchen wir's mit einer Abwandlung meiner Function
Das hier in ein allgemeines Modul kopieren:





Public Enum enIOMode

ForWriting = 2

ForAppending = 8

End Enum



Public Function WriteToTextFile(strText As String, _

strFileName As String, _

lngIOMode As enIOMode, _

Optional bolCreate As Boolean = False)



' =============================================================================

' Funktion:

' =========

' Schreibt den übergebenen String in eine Textdatei oder

' hängt den übergebenen String an eine Textdatei an

'

' Eingabeparameter:

' =================

' strText: Anzuhängender Text

' strFileName: Name der zu beschreibenden Datei

' lngIOMode: Textdatei überschreiben oder String anhängen?

' bolCreate: Sofern die angegebene Datei nicht existiert: Diese anlegen?

' =============================================================================



Dim fso As Object

Dim fsoOutFile As Object





On Error GoTo WriteToTextFileErr



Set fso = CreateObject("Scripting.FileSystemObject")

Set fsoOutFile = fso.OpenTextFile(strFileName, lngIOMode, bolCreate)

fsoOutFile.WriteLine strText

fsoOutFile.Close





WriteToTextFileExit:

On Error Resume Next

Set fsoOutFile = Nothing

Set fso = Nothing

Exit Function



WriteToTextFileErr:

MsgBox Err.Description, vbCritical, "WriteToTextFile: Fehler " & Err.Number & " aufgetreten!"

Resume WriteToTextFileExit



End Function







Aufruf dann so:





Sub Test()

Dim strTmp As String

strTmp = [hier den Dateiinhalt einlesen; dann:]

WriteToTextFile strTmp, "C:\Temp\test.txt", ForWriting, True

End Sub





Hoffe, es klappt!



Gruß,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: