---

Hallo,

ich schreib gerade ein Programm, dass 6000 Zeichnungen konvertiert.
Funktioniert schon ganz gut, nur bei einigen Zeichnungen erscheint die Warnung:

Während des Öffnens wurden 2 Fehler gefunden. Sie sollten frn Öffnunghsvorgang abbrechen und RECOVER für die Zeichnung ausführen.
Wollen Sie den Öffnungsvorgang abbrechen?

Damit bleibt mein Programm stehen, und erst nach einem Klick auf "Nein" läuft alles wie gehabt weiter.

Wenn ich die Zeichnung mit dem Befehl "_recover" öffne, kommt am Ende immer die Meldung: Prüfung akzeptiert die wiederhergestellte Datenbank.

Diese Meldung kann ich leider per VBA nicht weggeben - weder mit SendCommand noch mit Sendkeys....

Variable EXPERT habe och bereits auf 5 gesetzt...

Danke für eine Antwort.....

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo naservus03,

für den Dialog kannst Du mit PTFB NEIN klicken, ist zwar ausserhalb deines Progs aber wenns hilft.

Gruß Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo naservus03.

Hilft Dir das vielleicht weiter?

Code:

---

Private Function test()
Dim f1 As Object, fc As Object
Dim fs As Object, f As Object
Dim strBlNme As String

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.getfolder("C:\your DIR\")

ThisDrawing.Application.Preferences.System.SingleDocumentMode = False

Set fc = f.Files
For Each f1 In fc
ThisDrawing.New AcadDocument
strBlNme = f1 & ".dwg"
ThisDrawing.SendCommand "Recover" & vbCr
ThisDrawing.SendCommand strBlNme & vbCr
ThisDrawing.SendCommand vbCr
ThisDrawing.Save
ThisDrawing.Close
Next

End Function

---

(ungetestet, irgendwo mal im Inet gefunden  )

Grüsse
ML

------------------
die EDV (weibl.)...ansonsten wäre die Kommunikation mit Computern und deren angeschlossenen Geräte in einer für jederMann verständlichen Sprache...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Lappi:
hat leider nicht funktioniert, da nach dem recover die Eiibage der Datei nicht automatisch weitergegeben wurde (obwohl filedia auf 0...)

@Peter:
Danke für das geniale Tool. Ist zwar außerhalb, aber dafür umso genialer.

lg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP