Dateien von Verschiedenen Verzeichnissen in Dokumente anhängen

[tfrenz]

Hallo,
ich hoffe ihr könnt mir helfen.
habe einen Agenten (Script) geschrieben, der mir aus einem Verzeichnis Dateien in einzelne Dokumente anhängt.
Das funktioniert auf super.
Doch nun mein Problem, auf dem Server sind ab dem einstiegsverzeichniss viele Unterverzeichnisse und Dateien.
Wie kann ich nun in die entsprtechenden Verzeichnisse auslesen und auch diese Dateien anhängen?

Anbei auch noch mein Script
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim vw As NotesView
   Dim doc As NotesDocument
   Dim RTcontent As NotesRichTextItem
   Dim strVerz As String
   Dim strDatei As String
   Dim strDatName As String
   Dim datum As New NotesDateTime( "" )
   
   Set db = session.CurrentDatabase
   
'   strVerz = "H:\2_Organisationsanweisungen"
   strVerz = "H:\Freigabe_Reports\"
   strDatei = Dir$( strVerz, 0)
   Call datum.SetNow
   
   Do While strDatei <> ""
      Set doc = db.CreateDocument
      Set RTcontent = New NotesRichTextItem( doc, "content")
      doc.Form = "(document)"
      doc.category = "Organweisungen"
      doc.back_page = "c_" & Lcase(doc.category(0))
      doc.dsp_category = "Anweisungen - Organweisungen"
      doc.role = "[anweisungen]"
      doc.editor = session.CommonUserName
      doc.modified = datum.LocalTime
      doc.title = strDatei
      Call RTcontent.EmbedObject(EMBED_ATTACHMENT, "", strVerz & strDatei, "content")
      Call doc.Save(True, False)
      Call doc.ReplaceItemValue("created", doc.Created)
      Call doc.Save(True, False)
      
      Print "Datei angehängt: " & strVerz & strDatei
      strDatei = Dir$()
   Loop

Danke
Thomas

[m3]

Verzeichnis-Einlesen und Eintrag verarbeiten in Funktionen aufsplitten und den Einleser reskursiv für jedes Verzeichnis aufrufen.

[koehlerbv]

Exakt so ist es - ein Musterbeispiel für den Anlass rekursiver Programmierung.

Bernhard

[tfrenz]

Aber wie kann ich nur Verzeichnisse einlesen?
In einen der Unterverzeichnisse sind Dateien und noch zus. Verzeichnisse.

?
Thomas

[m3]

Du willst Dir die "Dir" Funktion von LotusScript ansehen.