---

Hallo,
ich suche nach einem Dir Befehl für mein CATScript. Leider habe ich diesen Befehl nicht für CATScript gefunden.
Es geht hierbei um eine Dateiabfrage. Der Dir Befehl ist bei CATScript ja für directory belegt...
Kennt jemand einen Befehl den ich hier verwenden kann?

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

---

Hallo Peter873,

also das sollte auch mit FileSystemObject funktionieren... (hattest du glaub ich letztens erst  )

FileSystemObject:

Sub CatMain()

sPath = "C:\Temp"
sFilter = ".catproduct"

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oRootFolder = oFSO.GetFolder(sPath)

For Each oFolder In oRootFolder.SubFolders
    sFiles = sFiles & "+--" & oFolder.Name & vbCrLf
    For Each oFile In oFolder.Files
        If InStr(1, UCase(oFile.Name),UCase( sFilter)) <> 0 Then
            sFiles = sFiles & "      +--" & oFile.Name & vbCrLf
        End If
    Next
Next

MsgBox sFiles, vbOKOnly  'die Ausgabe solltest du aber nicht in einer Msgbox machen, da Sie nur begrenzte Zeichenanzahl aus gibt...

End Sub

Dir(): 'funktioniert in Catvba

Sub ShowDir()

Dim sFile As String
Dim sMess As String

sFile = Dir("C:\Temp\*.TXT")

Do While sFile <> ""
  Debug.Print sFile
  sFile = Dir
  sMess = sMess & sFile & vbCrLf
Loop

MsgBox sMess, vbOKOnly, "Filelist"

End Sub

mfG
Mario

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

---

Hallo Mario,
ok, mit deinem obigen Skript kann ich Unterordner durchsuchen. Aber wie kann ich dieses Skript abändern, damit auch Dateien in Unterordnern von Unterordner gefunden werden können?
Ich möchte hier eine rekursive Funktion einbauen, funktioniert nur leder icht so optimal...

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

---

Hallo,

der Antwort liegt genau hier, in deinen anderen Beitrag.

Du solltest dich aber wirklich mit den Grundsätzen der VB(A) Programmierung auseinandersetzen.
Viele deiner Beiträge sind ganz allgemeine programmiertechnische Fragen, die man sehr gut mit Google beantworten kann.

Ich bin hier zwar kein Moderator, aber ich lese auch nicht gerne ein Problem unter zwei Beiträge, insbesondere nicht wenn unter einer Beitrag ein schon ein guter Antwort vorhanden ist und die selbe Frage nochmals in einen anderen Stunden nach dieser aufgestellt wird.

Mit Google hättest du es selber festellten können, dass ein Objekt der Typ Folder eine Eigenschaft Namens SubFolders hat. Wenn der .Count dieser größer 0 ist, dann gibt es darunter auch weitere Verzeichnisse.
Und wenn nicht mit Google, dann bitte den Watch-Fenster in der VBA Editor verwenden. Das kann auch extrem hilfreich sein.

Gruß,
Zoltan

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