---

Hallo,

ich verwende momentan den SubFolder Befehl, um meine Unterordnr nach Dateien zu durchsuchen. Das funktioniert auch soweit ganz gut.
Es gibt momentan nur einen Haken: Dateien, die sich in einem weiteren Unterordner eines Unterordner befinden, werden nicht gefunden.
Durchsucht der Befehl SubFolder nur eine Dateiebene?

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

---

Hallo  ,

die Eigenschaft SubFolders gibt nur die Ordner-Collection des Ordners zurück von dem sie aufgerufen wurde. D.h. wenn du mehrer Unterordner hast brauchst du eine rekursive Funktion.

------------------
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

---

Hallo Daniel,

ist diese Funktion ein zusätzlicher Befehl oder benötige ich eine zusätzliche Schleife?

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

---

Hallo  ,

welche Funktion meinst du?

Wenn man von einer Rekursiven Funktion spricht, dann meint man eine Funktion die sich selber wieder aufruft (mit anderen Übergabeparameter). So schafft man es alle Dateien in eine Collection zu schieben egal wie die zugrunde liegende Ordnerstruktur aussieht. Suche mal im INet bzw. hier im Board noch einer solchen Funktion. Ich bin sicher sowas solltest du schnell finden 

------------------
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

---

Ok, danke für den Hinweis!

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

---

Hallo Peter873,

ich schätze mal du arbeitest noch an deinem alten Problem 
Dir()-Befehl

oder

Suchfunktion Speicherort Bauteile

Was soll denn eigentlich bei deinem Makro zum Schluß rauskommen?
(nur mal Interesse halber  )

aber Rekursiv könntest du die Ordner so durchsuchen(Msgbox nur für kleinere Strukturen, sonst ist die Ausgabe nicht vollständig.)
Ich schätze mal du arbeitest immer noch in Catscript deswegen habe ich die Dimensionierung weggelassen...

Sub CatMain()

spath = "C:\DATEN\Ajax"

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set MyRootFolder = oFSO.GetFolder(spath)

sFiles = "Root: " & spath & vbCrLf
MsgBox TreeScan(MyRootFolder, "", sFiles), vbOKOnly, "TreeScan: " & spath

End Sub

Function TreeScan(MyFolder, sSpace, sFiles)

'Dateien auslesen
For Each oFile In MyFolder.Files
        sFiles = sFiles & sSpace & oFile.Name & vbCrLf
Next

'Ordner auslesen
For Each oFolder In MyFolder.SubFolders
    sFiles = sFiles & sSpace & oFolder.Name & vbCrLf
    TreeScan oFolder, "----" & sSpace, sFiles
Next

TreeScan = sFiles

End Function

mfG
Mario

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