folgender Code soll's machen
'Anlagen speichern - ANFANG
path = profildoc.OrdnerAnlagen(0)
KatAntragID = cdoc.KatAntragID(0)
Dim rtitem As Variant
Set rtitem = cdoc.GetFirstItem( "DokAnlage" )
If ( rtitem.Type = RICHTEXT ) Then
If cdoc.HasEmbedded Then
'Verzeichnis erstellen für DStK
path2 = Dir$(path & "\", 16)
status = 0
Do While path2 <> ""
path2 = Dir$()
If ( path2 = Trim$(Strleft(KatAntragID, "/"))) Then
status = 1
End If
Loop
path = path & "\" & Trim$(Strleft(KatAntragID, "/"))
If ( status = 0 ) Then
Mkdir path
Elseif (status = 1) Then
status = 0
End If
'Verzeichnis erstellen für DStK - ENDE
'Verzeichnis erstellen für Datum
path2 = Dir$(path & "\", 16)
status = 0
Do While path2 <> ""
path2 = Dir$()
If ( path2 = Trim$(Strleft(Strright(KatAntragID, "/"), "/"))) Then
status = 1
End If
Loop
path = path & "\" & Trim$(Strleft(Strright(KatAntragID, "/"), "/"))
If ( status = 0 ) Then
Mkdir path
Elseif (status = 1) Then
status = 0
End If
'Verzeichnis erstellen für Datum - ENDE
'Verzeichnis erstellen für lfdNr
path2 = Dir$(path & "\", 16)
status = 0
Do While path2 <> ""
path2 = Dir$()
If ( path2 = Trim$(Strrightback(KatAntragID, "/"))) Then
status = 1
End If
Loop
path = path & "\" & Trim$(Strrightback(KatAntragID, "/"))
If ( status = 0 ) Then
Mkdir path
Elseif (status = 1) Then
status = 0
End If
'Verzeichnis erstellen für lfdNr - ENDE
'Wechseln der Tabelle in der Access-DB
qry.SQL = "SELECT * FROM tbl_Kat_Dok"
If qry.GetError <> DBstsSUCCESS Then
Exit Sub
End If
result.Execute
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
text$ = o.source
Call o.ExtractFile ( path & "\" & o.source )
Call o.Remove ''aktivieren wenn Anlagen im Dokument gelöscht werden sollen
result.AddRow
Call result.SetValue("RegNr", Cstr(cdoc.KatAntragID(0)))
Call result.SetValue("AnhangDatei", Cstr(Strleftback(text$, ".")))
Call result.SetValue("AnhangDateiTyp", Cstr(Strrightback(text$, ".")))
text$ = path
Call result.SetValue("AnhangPfad", text$)
Call result.UpdateRow
End If
End Forall
result.Close(DB_CLOSE)
con.Disconnect
End If
End If
'Anlagen speichern - ENDE
"path" ist ein Feld im Profildokument wo ich einstellen kann, wo die Dateien gespeichert werden sollen
"KatAntragID" ist eine Registriernummer im Format xx/xx/xxxx -> zwei Buchstaben / Jahr / lfd. Nr.
Das Verzeichnis welches in "path" angegeben ist, das existiert, die restlichen werden erstellt.
Stelle ich nun in "path" 'c:\temp' ein, dann funktioniert es, stelle ich aber '\\server\ablage\dokumentation' ein, dann gehts nicht. Verbinde ich die Freigabe, so das auf dem Domino Server zum Beispiel 'H:\dokumentation" herrauskommt, dann gehts auch nicht.
Ich kann mir nicht vorstellen, dass es am Agenten liegen soll oder am Domino Server da er es ja lokal speichern kann, nur am File Server sind die Berechtigungen für das Zielverzeichnis auf "Vollzugriff" gestellt, sollte also auch dann gehn
Wenn das Verzeichnis nicht da ist oder nicht gefunden wird, sollte die Fehlermeldung nicht eine andere sein???
Ja zum Teil hast Du recht, für das Speichern der Anlagen ist der Unterzeichner egal, nur muss dieser auf dem Server das Recht besitzen agenten auszuführen, die Dateioperationen ausführen, da der Server dies in der Regel darf, wurde die Datenbank mit der Server ID signiert.