So. Hab noch weiter rumgebastelt und das Config nochmal geändert.
Dort musste ja zuerst der Server und der Dateiname getrennt in zwei Felder eingegeben werden. Was ja Käse ist und gleich in das Feld Dateipfad reinpaßt.
Hab dann den SCode geändert, dass er nur noch auf das Feld Dateipfad (mit dem kompletten Namen) zugreift.
Nun funzt es auch.
Hier der Code:
Sub Initialize
Dim session As New notessession
Dim db As notesdatabase
Dim doc As Notesdocument, profdoc As Notesdocument
Dim Dateipfad As String, aktfile As String
Dim fileNum As Integer, cells As Integer, k As Long
Dim fileName As String
Dim InputStr As String, delimiter As String
Dim FieldArray As Variant
Dim view As NotesView
Set db = session.currentdatabase
Set profdoc = db.getprofiledocument("(Konfig)")
Dateipfad = profdoc.Dateipfad(0)
fileNum = Freefile()
Set view = db.GetView ("Alle Bestellungen")
'Trennzeichen
delimiter = ";"
aktfile = Dateipfad
If aktfile <> "" Then
Open aktfile For Input As fileNum%
Line Input #1, InputStr$
Do While Not Eof(fileNum%)
Line Input #1, InputStr$
FieldArray = Split(InputStr$,delimiter, -1, 0)
If Not Isempty(FieldArray) Then
Set doc = view.GetDocumentByKey(FieldArray(2))
If Not doc Is Nothing Then
Call doc.ReplaceItemValue("Bestelldatum", Today)
Call doc.Save(True,True)
End If
End If
Loop
Messagebox "Datei nicht vorhanden", 16, "Fehler"
End If
Close fileNum%
End Sub
Wo ich aber noch auf der Leitung steh. Er sucht alle Daten der zugewiesenen txt-Datei durch und wenn er was findet, setzt er auch das Bestelldatum auf Today.
Wenn er alle durchsucht hat, schließt er aber immer mit "Datei nicht vorhanden", 16, "Fehler".
Kann mir jemand auf die Sprünge helfen?
Gruß
