Private bIsDirty As Boolean
Dim DateiName As String
 
 
Private Sub Drive1_Change()
   Dir1.Path = Drive1.Drive
End Sub
 
 
Private Sub Dir1_Change()
   File1.Path = Dir1.Path
End Sub
 
 
 
Private Sub File1_Click()
   DateiName = File1.List(File1.ListIndex)
   DateiName = File1.Path + "\" + DateiName
 
   Call Text
End Sub
 
Private Sub Text()
 
   Dim DateiNr%
 
   If Trim$(DateiName) = "" Then Exit Sub
   If Dir$(DateiName) = "" Then Exit Sub
 
   On Error Resume Next
   DateiNr = FreeFile
 
   Open DateiName For Input As #DateiNr
   Text1.Text = Input(LOF(DateiNr), #DateiNr)
   Close #DateiNr
 
   On Error GoTo 0
 
   DocChanged = False
 
End Sub
 
 
Private Sub mnuSpeichern_Click()
   Dim fp As Integer
   Dim eingabe As String
 
   If File1.FileName = "" Then Exit Sub
   fp = FreeFile
   Open DateiName For Output As #fp
   eingabe = Text1.Text
   Print #fp, eingabe
 
   Close (fp)
 
   DocChanged = False
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
 
' Checks to see if document has changed since last save,
' and if it has gives a message box with a chance to save.
 
   If DocChanged = True Then
 
      Select Case MsgBox("The file has changed." & vbCr & vbCr & _
      " Do you wish to save your changes?", _
      vbExclamation + vbYesNoCancel, Me.Caption)
 
      Case vbYes
         mnuSpeichern_Click
 
      Case vbNo
         Unload Form
 
      Case vbCancel
         Cancel = True
 
      End Select
 
   Else
 
      MsgBox "Nothing changed.", vbInformation + vbOKOnly
 
   End If
 
End Sub
 
 
Private Sub Text1_Change()
 
   DocChanged = True
 
End Sub