---

Hallo,

ich hab 2 Variablen:
folder = "C:\Verzeichnis2\"
file  = "C:\Verzeichnis1\RootProduct.CATProduct"

Ich benötige eine dritte Variabel die so aussieht:
Variable = "C:\Verzeichnis2\RootProduct.CATProduct"

Lösungsmöglichkeit:
Mit CATIA.FileSystem.Concatenatepaths, aber ...

Das RootProduct.CATProduct ist nicht geladen, d.h. ich kann nicht mit dem ProductName des geladenen Dokuments arbeiten.

Irgendwelche Ideen ?

Danke schomal,
Pi

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

---

Hallo Pi,

mit folgendem Code kannst du den Dateipfad oder den Dateinamen aus einem String extrahieren.
Du musst dann nur noch deinen String zusammensetzen.

C4N

Bernd

>>>> CUT HERE

' Ermittelt den Pfad oder den Dateinamen aus Pfad+Dateiname
' Vorlage gefunden bei http://www.vbarchiv.net/archiv/tipp_1034.html
' Variable IsPath = false  >> Dateiname wird ermittelt
' Variable IsPath = true  >> Dateipfad wird ermittelt

Sub CATMain()

sFileName = "C:\Test\Ordner1\logfile.txt"

'Diese Variable bestimmt ob Dateipfad oder Dateiname ermittelt werden
IsPath = false

 
  ' nach dem letzten Backslash suchen
sPos = 0
  Do
    sPos = InStr(sPos + 1, sFileName, "\")
    If sPos > 0 Then nPos = sPos
Loop Until sPos = 0
 
' Wenn der Pfad ermittelt werden soll...
If IsPath Then
    ' Ist im String überhaupt ein Backslash vorhanden?
    If nPos > 0 Then
      GetPathOrFileName = Left(sFileName, nPos)
    End If
  Else
  ' Wenn die Datei ermittelt werden soll...
    GetPathOrFileName = Mid(sFileName, nPos + 1)
  End If

msgbox GetPathOrFileName

End sub

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

---

ThX a lot  Works Perfect.
10 Unities.

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