Public Sub Speichern()
  'Existenz eines Laufwerks prüfen
  Dim bDriveExists As Boolean
  bDriveExists = oFSO.DriveExists(F)
  'Existenz eines Ordners prüfen
  Dim bFolderExists As Boolean
  bFolderExists = oFSO.FolderExists( _
    "F:\Abteilung\Elektro\Datensicherung\Ofen2\" & Date)
 
 
  'Existiert der Ordner?
  If Not oFSO.FolderExists("F:\Abteilung\Elektro\Datensicherung\Ofen2\" & Date) _
    Then
    'Nein! Jetzt erstellen...
    If oFSO.CreateFolder("F:\Abteilung\Elektro\Datensicherung\Ofen2\" & Date) _
      Then
      MsgBox "Erstellt"
      'Ordner wurde korrekt erstellt!
    End If
  Else
    MsgBox " Ordner besteht schon!"
  End If
 
 
End Sub

Thanks 4 Help

Das wichtigste ist Ruhe bewaren!

Surftip:
Allroundforum
www.mt-arens.de