---

Hallo,

und zwar möchte ich in einem Produkt eine Komponente ersetzen mit folgendem Befehl:

Set oNeuKomp = oMasterProd.ReplaceComponent(oAltKomp, "C:\Komponente\Komponente.CATPart", False)

Das gehts schon soweit, mir fehlt da noch, dass es geprüft wird ob die neue Komponente, also die Datei: Komponente.CATPart überhaupt vorhanden ist

gruß
Alex

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

---

Versuch's mal mit
CATIA.FileSystem.FileExists( Pfad und Name)

Gruß
Jürgen

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

---

Dim Exists As Boolean
Exists = CATIA.FileSystem.FileExists(datei)
If Exists = True Then
MsgBox "ersetzen"
Else
MsgBox "nicht ersetzen"
End If

obwohl Exists immer den richtigen Wert annimmt wird kommt immer die zweite MsgBox

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

---

Hallo,

das liegt an der Auswertung der booleschen Variablen. Dies kann VB so nicht verarbeiten. Konvertiere die Variable vorher in einen String und vergleiche mit dem Wert "True" dann wird es gehen

Hier mal ein Beispiel:

Code:

---

Sub CATMain()

    Dim myFilePathStr As String
    Dim myFileNameStr As String
    Dim ExitsBool As Boolean

    myFilePathStr = "deinPfad"
    myFileName = "deinDateiname"
   
    ExitsBool = CATIA.FileSystem.FileExists(myFilePathStr + myFileName)
    If CStr(ExitsBool) = "True" Then
        MsgBox "ersetzen"
    Else
        MsgBox "nicht ersetzen"
    End If
   
End Sub

---

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

danke schön, jetzt läuft alles wie es muss ;-)

Gruß
Alex

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

---

Zitat:

---

das liegt an der Auswertung der booleschen Variablen. Dies kann VB so nicht verarbeiten. Konvertiere die Variable vorher in einen String und vergleiche mit dem Wert "True" dann wird es gehen

---

Hallo ,

kann das sein das es manchmal funktioniert und machmal nicht?
Oder geht das eher bei der Überprüfung von FolderExists sicherer.
Weil dort übernimmt er bei mir die Abfrage direkt aus der schleife.
Auch wenn ich den Ordner Lösche erstellt Catia jedes mal einen neuen und gibt ja somit TRUE als Ergebnis aus.

Code:
If CATIA.FileSystem.FolderExists(TempVerz2 & "\" & Ordner1 & "\" & SpannVarGew & "\" & Spannergew) = False Then
            CATIA.FileSystem.CreateFolder (TempVerz2 & "\" & Ordner1 & "\" & SpannVarGew & "\" & Spannergew)
End If

und sobald ich in einem anderen Modul nach einer "Datei" Frage passiert mir das gleiche das VBA immer False ausspuckt.

Code:

Dim VerzString As String
VerzString = "Pfad\Datei.CATProduct"

If CATIA.FileSystem.FileExists(VerzString) = True Then
    MsgBox "Vorhanden", vbOKOnly
Else
    MsgBox "Fehlt", vbOKOnly
End If

Wenn ich im nachhinein im Code2 mit Catia.Documents.Open(Verzstring) mache, öffnet er die Datei sogar.
Des ist bisschen Suspekt des alles 
Bin am überlegen ob ich nicht den Weg über die Konvertierung vom String machen soll, nicht das es irgendmal beim Folder auch aussetzen sollte.
Oder gibts da noch ein Trick?

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

---

If CStr(CATIA.FileSystem.FolderExists(Pfad)) = "False" Then
            CATIA.FileSystem.CreateFolder (TempVerz2 & "\" & Ordner1 & "\" & SpannVarGew & "\" & Spannergew)
End If

Mit Cstr(CATIA.FileSystem.FolderExists(Pfad)) Spart man sich eine Variable 

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

---

Hallo Cyzed,
kannst Du den gesamten Code posten, das wäre mir eine große Hilfe :-)

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