Code Snippet "VBA allgemein"

Textdatei einlesen und als String zurückgeben

'Datei einlesen
Function funTextdateiEinlesen(ByVal strFilename As String)
  Const constforReading = 1 'nur Lesen
  Const consttristate = 0   'kein Unicode
  
  Dim objFs 'As FileSystemObject
  Dim objTextFile 'As TextStream
  Dim strText As String
  
  'Datei einlesen
  Set objFs = CreateObject("Scripting.FileSystemObject")
  
  If objFs.FileExists(strFilename) Then
    Set objTextFile = objFs.opentextfile(strFilename, _
      constforReading, consttristate)
    
    strText = objTextFile.ReadAll
    objTextFile.Close
    Set objTextFile = Nothing
    Set objFs = Nothing
  End If
  
  funTextdateiEinlesen = strText
End Function