Public Sub ReadFromFile(FilePath As String)
    Dim nFNr As Integer
    Dim nContents As Variant
    Dim nBytes() As Byte
 
    If zFileExist(FilePath) Then
        On Error GoTo ReadFromFile_Error
        nFNr = FreeFile
        Open FilePath For Binary Access Read Lock Read As #nFNr
            Get #nFNr, , nContents
        Close #nFNr
        nBytes = nContents
        m_PBag.Contents = nBytes
    Else
      Debug.Assert False
        'Err.Raise pbxErrFileNotFound, "CPropertyBagEx.ReadFromFile"
    End If
    Exit Sub
 
ReadFromFile_Error:
    Err.Raise Err.Number, Err.Source, Err.Description
End Sub
 
Public Sub SaveToFile(FilePath As String, Optional ByVal OverWrite As Boolean = _
  True)
    Dim nPropBag As PropertyBag
    Dim nContents As Variant
    Dim nFNr As Integer
 
    If zFileExist(FilePath) And Not OverWrite Then
      'Err.Raise pbxErrFileExists, "CPropertyBagEx.SaveToFile"
      Debug.Assert False
    End If
    nContents = m_PBag.Contents
    On Error Resume Next
    Kill FilePath
    On Error GoTo SaveToFile_Error
    nFNr = FreeFile
    Open FilePath For Binary Access Write Lock Write As #nFNr
        Put #nFNr, , nContents
    Close #nFNr
    Exit Sub
 
SaveToFile_Error:
    Err.Raise Err.Number, Err.Source, Err.Description
End Sub
 
Private Function zFileExist(FilePathName As String) As Boolean
    Dim nFlags As Integer
 
    nFlags = vbNormal Or vbHidden Or vbSystem Or vbArchive
    On Error GoTo FileExist_Error
    If Len(Trim$(FilePathName)) Then
        If Len(Dir$(FilePathName)) Then
            zFileExist = CBool(GetAttr(FilePathName) Or nFlags)
        End If
    End If
    Exit Function
 
FileExist_Error:
End Function

Gruß
Dirk

--
?Get it right the first time