---

PDF.txt

Hallo zusammen,

ich nutze das im Anhang befindliche Script um CATdrawings zu PDF zu konvertieren.
Funktioniert soweit auch.
Allerdings ist es so, das wenn ich das Script vorzeitig abbrechen will, bevorzugt über Schließen (bzw. das X der Msg-BOX)
wird das Script nicht geschlossen, sondern nur die Augenblickliche Aktion abgebrochen, wodurch das Script weiterläuft.
Kann dies geändert werden, so das beim drücken des X das Script beendet wird ?
Bin hier leider kein Held und deshalb für jede Hilfe dankbar.

Gruß
eazy_isi

------------------
Das Glück bevorzugt den der vorbereitet ist!

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

---

Servus
Dazu musst du den Rückgabewert der MsgBox auswerten. zB:

Code:

---

Sub CATMain

dim Response as integer
response = MsgBox ("Weiter?",1)

if response = 2 then
  msgBox "Das Makro wird beendet"
  Exit Sub
end if
End Sub

---

Siehe auch auf MSDN.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

danke für die Hilfe funktioniert perfekt.

Noch eine letzte Frage, gibt es auch die Möglichkeit alle "Detail.PDF's" im Ausgabeverzeichnis zu löschen ?

Gruß
eazy_isi

------------------
Das Glück bevorzugt den der vorbereitet ist!

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

---

Servus
Dazu kannst du zB das FileSytemobject verwendenden (siehe auch unter "Methoden")

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

ich bin schon ein klein wenig weiter.
Das komplette Ausgabeverzeichniss kann ich löschen, allerdings nicht die darin befindlichen Dateien.
Hier der Code der nicht funktioniert:

Code:

---

Dim fil
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderoutput)
for each fil in folder.files
if fil.name="*Detail*.pdf" then
fil.delete
end if

set fil = nothing
set folder = nothing
set fso = nothing

---

Das komplette Ausgabeverzeichniss löschen geht:

Code:

---

Dim fil
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderoutput)folder.Delete
set folder = nothing
set fso = nothing

---

Hättes du mir hier nochmals einen Ansatz wie ich das lösen könnte ?

Danke vorab.

Gruß
eazy_isi

------------------
Das Glück bevorzugt den der vorbereitet ist!

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

---

Servus
Ohne es getestet zu haben würde sich es so probieren:

Code:

---

Dim fil
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderoutput)
for each file in folder.files
   if InStr(file.name,"Detail") <> 0 and Right(file.name,3) = "pdf" then
       file.delete
    end
next

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

[Diese Nachricht wurde von bgrittmann am 16. Mai. 2012 editiert.]

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

---

Hallo Bernd,

sorry das ich mich erst jetzt eine Rückmeldung gebe, war ziemlich unter Last die letzte Zeit.

Ich machŽs kurz, VIELEN DANK für deine Tipps, läuft perfekt.
Die 10 Unities für dich sind selbstverständlich !

Dank nochmals
Gruß Thomas

------------------
Das Glück bevorzugt den der vorbereitet ist!

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