---

Hallo an Alle,

ich setzte diesen Script von catia.cad.de bei uns ein.
Leider habe ich nun bemerkt, wenn ich schon eine Datei habe mit dem gleichen NAmen, überschreibt es mir diese nicht, bricht ab.

Ich habe mir gedacht, wenn in der

folderoutput & f1.name & ".dwg" die Datei existiert, das es mir diese gleich löst und diese dann abspeichert.

In VB wäre es eigenlich mit diesem Befehl

kill folderoutput & f1.name & ".dwg"

--> aber den Befehl kill kennt es nicht.

Der dazugehörige Script:

'Script zum Exportieren von V5-Parts und Produkten in STEP203'
'Erstellt von Jens Hansen / info@catia.cad.de'
'Dieses Script ist kostenlos verfügbar und darf weder verkauft noch Angeboten werden'
'Adresse zum Download: http://catia.cad.de'

Language="VBSCRIPT"

Sub CATMain()

folderinput = "V:\Betriebsmittelarchiv\CatiaArchivElektra\temp\temp3\"
folderoutput = "V:\Betriebsmittelarchiv\CatiaArchivElektra\Archiv\catia-dwg\"

Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderinput)
Set fc = f.Files

For Each f1 in fc

Dim PartDocument1 As Document
Set documents1 = CATIA.Documents
Dim document1 As Document

PFADEINGABE =  folderinput & f1.name
Set PartDocument1 = CATIA.Documents.Open(PFADEINGABE)

Dim LastExtPos As Integer
LastExtPos = InStrRev(f1.name,".",-1)
f1.name = Left (f1.name, LastExtPos)

PFADAUSGABE = folderoutput & f1.name & ".dwg"
PartDocument1.ExportData PFADAUSGABE, "dwg"

s = s & f1.name
s = s & vbCrLf

Next

'Bei Bedarf kann eine Schlussnachricht eingeblendet werden, wo die umgewandelten Elemente aufgelistet sind. Hierfür in nachfolgender zeile die Hochkommas entfernen.'
'MsgBox "fertig !" & vbCrLf & s '

CATIA.quit

End Sub

Könnte man vielleicht in diesem Script sagen, das er die Datei einfach überschreiben soll?!

Danke für jeden Hinweis.

Schönen Gruß
Feyza : )

------------------
   

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

---

Hallo,
ich würde vorher die Datei ggf. löschen:

'Script zum Exportieren von V5-Parts und Produkten in STEP203'
'Erstellt von Jens Hansen / info@catia.cad.de'
'Dieses Script ist kostenlos verfügbar und darf weder verkauft noch Angeboten werden'
'Adresse zum Download: http://catia.cad.de' 

Language="VBSCRIPT"

Sub CATMain()

folderinput = "V:\Betriebsmittelarchiv\CatiaArchivElektra\temp\temp3\"
folderoutput = "V:\Betriebsmittelarchiv\CatiaArchivElektra\Archiv\catia-dwg\"

Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderinput)
Set fc = f.Files

For Each f1 in fc

Dim PartDocument1 As Document
Set documents1 = CATIA.Documents
Dim document1 As Document

PFADEINGABE =  folderinput & f1.name
Set PartDocument1 = CATIA.Documents.Open(PFADEINGABE)

Dim LastExtPos As Integer
LastExtPos = InStrRev(f1.name,".",-1)
f1.name = Left (f1.name, LastExtPos)

PFADAUSGABE = folderoutput & f1.name & ".dwg"

dim Filesys as FileSystem
Set Filesys = CATIA.FileSystem

if Filesys.FileExists(PFADAUSGABE) then
  Filesys.DeleteFile PFADAUSGABE
end if

PartDocument1.ExportData PFADAUSGABE, "dwg"

s = s & f1.name
s = s & vbCrLf

Next

'Bei Bedarf kann eine Schlussnachricht eingeblendet werden, wo die umgewandelten Elemente aufgelistet sind. Hierfür in nachfolgender zeile die Hochkommas entfernen.'
'MsgBox "fertig !" & vbCrLf & s '

CATIA.quit

End Sub

viel Erfolg

Jens Hansen

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

---

Eventuell musst Du im Script vom Jens nach dem Löschen noch eine "wait" einbauen. Ich habe schon Probleme gehabt wenn ich eine Datei lösche und gerade wieder anlege, dass das Dateisystem nicht nachgekommen ist.

Axel

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

---

Guten Morgen Jens,

danke für die korrektur Deines Scriptes : )

Er löscht und legt die neue Datei an.
Noch war kein Problem es mit dem Dateisystem.

Schönen Tag
Feyza : )

------------------
   

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

---

Schönen Abend Axel,

danke Dir für Deinen Eintrag.
Falls bei mir das Dateisystem doch Probleme machen sollte, werde ich ein wait mit einbauen.

Schönen Gruß
Feyza : )

------------------
   

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