---

Hallo zusammen,

ich möchte zum umwandeln von Daten mit einem Makro die entsprechenden Zielordner erzeugen. Ich gebe dazu eine Produktnummer und eine Daten ID an. In unserer Ordnerstruktur steht dann der Produktordner mit org und cad Verzeichnis. Das cad Verzeichnis muss erzeugt werden und darin dann der Ordner mit der ID.

Mein bisheriger Code:

Sub CATMain()

CATIA.DisplayFileAlerts = True

'File open-------

Dim Datei As CATBSTR
Dim ADoc As Document
Datei = CATIA.FileSelectionBox ("Datei öffnen", "*.CatPart", CatFileSelectionModeOpen)
If Datei <> "" Then Set ADoc = CATIA.Documents.Open (Datei)

'Eingabe P-------

Dim EingabeProd As String
EingabeProd = "P100001"
EingabeProd = InputBox ("Bitte geben Sie die Produktnummer ein.", "Eingabe Produktnummer", EingabeProd)

'Eingabe id-------

Dim Eingabeid As String
Eingabeid = "id1234"
Eingabeid = InputBox ("Bitte geben Sie die ID ein.", "Eingabe ID", Eingabeid)

'Create Folder-----

Dim Path As String
Path  = "P:\P100" +EingabeProd  &"cad"
CATIA.FileSystem.CreateFolder(Path)

End Sub

kann mir bitte jemand nen Tip geben woran es liegt das der Ordner nicht erzeugt wird?!? Danke

------------------
Chaotische Anwendung trotz imenser Anstrengungen

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

---

So wird im Augenblick das Directory "P:\P100P100001cad" erzeugt. Ist das so gewollt ?

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

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

---

Hallo Axel,

leider ist das so nicht gewollt. Ich brauche "P:\P100\P100001\cad". Ich habe es auch schon mit "\" an verschiedenen Stellen probiert. Krieg aber leider immer ne Fehlermeldung. Der Ordner in den von Dir benannten Pfad wird aber erzeugt.

------------------
Chaotische Anwendung trotz imenser Anstrengungen

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

---

Du musst auch sicherstellen das die übergeordneten Directories existieren:

P:\A\B\C\D

Du kannst da Directory D nicht generieren wenn A, B und C nicht existieren.

Ansonsten, welche Meldung kommt denn ?

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

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

---

Hallo Axel,

die Verzeichnisse P:\P100\P100001 existiert bereits. Im Ordner P100001 brauche ich den "cad" Ordner und im "cad" brauche ich einen Ordner "id1234".

Ich bin aber monentan an einer Werkzeugkonstruktion und würde das Thema zu einem späteren Zeitpunkt gern wieder aufgreifen.

Danke für Deine Hilfe. Gruß Marco

------------------
Chaotische Anwendung trotz imenser Anstrengungen

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

---

Hallo Parametricks

so funktionierts
Ergebnis:
P:\P100\P100001\cad\id1234

Grüße

Klaus

Sub CATMain()
CATIA.DisplayFileAlerts = True

'File open-------
'Dim Datei As CATBSTR
'Dim ADoc As Document
'Datei = CATIA.FileSelectionBox ("Datei öffnen", "*.CatPart", CatFileSelectionModeOpen)
'If Datei <> "" Then Set ADoc = CATIA.Documents.Open (Datei)

'Eingabe P-------
Dim EingabeProd As String
EingabeProd = "P100001"
EingabeProd = InputBox ("Bitte geben Sie die Produktnummer ein.", "Eingabe Produktnummer", EingabeProd)

'Eingabe id-------
Dim Eingabeid As String
Eingabeid = "id1234"
Eingabeid = InputBox ("Bitte geben Sie die ID ein.", "Eingabe ID", Eingabeid)

'Create Folder-----
Dim Path As String
Path = "P:\P100" +EingabeProd
CATIA.FileSystem.CreateFolder(Path)
Path = Path+"\cad"
CATIA.FileSystem.CreateFolder(Path)
Path1 = Path+"\"+Eingabeid
CATIA.FileSystem.CreateFolder(Path1)

End Sub

------------------
Klaus

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