Dim ExitDokumentenfpad As String = Dokumentenfpad & "\Zeichnungen"
If IO.Directory.Exists(ExitDokumentenfpad) Then
 Dim BAKFile As String = ExitDokumentenpfad
Else
 MsgBox("Es ist kein Projektverzeichnis vorhanden!", MsgBoxStyle.Information, _
   "Fehlermeldung")
End If
 
Dim MyDir As New System.IO.DirectoryInfo(BAKFile)
Dim MyFiles As System.IO.FileInfo() = MyDir.GetFiles("*.bak")
Dim counter = My.Computer.FileSystem.GetFiles(BAKFile)
Dim MyFile As System.IO.FileInfo
 
For Each MyFile In MyFiles
 Kill(BAKFile & "\" & MyFile.Name)
Next

VG

Dirk