Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: tfrenz am 04.04.07 - 15:17:20
-
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
-
Verzeichnis-Einlesen und Eintrag verarbeiten in Funktionen aufsplitten und den Einleser reskursiv für jedes Verzeichnis aufrufen.
-
Exakt so ist es - ein Musterbeispiel für den Anlass rekursiver Programmierung.
Bernhard
-
Aber wie kann ich nur Verzeichnisse einlesen?
In einen der Unterverzeichnisse sind Dateien und noch zus. Verzeichnisse.
????
Thomas
-
Du willst Dir die "Dir" Funktion von LotusScript ansehen.