von Markus Bernhard » Do, 03.11.2005 14:06
Hallo Thomas,
danke für den Zwischenbericht!
Nachstehend nun der Auszug aus der Routine.
Unmittelbar nach der Fehlermeldung öffnet sich das Programmlisting.
Der Bereich, den ich fett markiert habe, ist dort blau hinterlegt.
Zudem habe ich einen Versuch gemacht und definitiv keine schreibgeschützten Dateien eingeschlossen - trotzdem kam die Fehlermeldung.
Wie sieht es denn mit kennwortgeschützten Dateien aus?
Grüße aus Augsburg
Markus Bernhard
-----------------------------------------------------------------------------------
If ImportDialog.chkLogfile.State = 1 Then
i = 2
OpenProperties(0).Name = "Hidden"
OpenProperties(0).Value = True
oLogDocument = StarDesktop.LoadComponentFromURL("private:factory/swriter", "_default", 4, OpenProperties())
sLogUrl = SOWorkPath & "/Logfile.odt"
Do
bLogIsThere = oUcb.Exists(sLogUrl)
If bLogIsThere Then
If i = 2 Then
sLogUrl = ReplaceString(sLogUrl, "/Logfile_2.odt", "/Logfile.odt")
Else
sLogUrl = ReplaceString(sLogUrl, "/Logfile_" & cStr(i) & ".odt", "/Logfile_" & cStr(i-1) & ".odt")
End If
i = i + 1
End If
Loop Until Not bLogIsThere
bLogExists = True
oLogDocument.StoreAsUrl(sLogUrl, NoArgs())
End If
End Sub
Hallo Thomas,
danke für den Zwischenbericht!
Nachstehend nun der Auszug aus der Routine.
Unmittelbar nach der Fehlermeldung öffnet sich das Programmlisting.
Der Bereich, den ich fett markiert habe, ist dort blau hinterlegt.
Zudem habe ich einen Versuch gemacht und definitiv keine schreibgeschützten Dateien eingeschlossen - trotzdem kam die Fehlermeldung.
Wie sieht es denn mit kennwortgeschützten Dateien aus?
Grüße aus Augsburg
Markus Bernhard
-----------------------------------------------------------------------------------
If ImportDialog.chkLogfile.State = 1 Then
i = 2
OpenProperties(0).Name = "Hidden"
OpenProperties(0).Value = True
oLogDocument = StarDesktop.LoadComponentFromURL("private:factory/swriter", "_default", 4, OpenProperties())
sLogUrl = SOWorkPath & "/Logfile.odt"
Do
bLogIsThere = oUcb.Exists(sLogUrl)
If bLogIsThere Then
If i = 2 Then
sLogUrl = ReplaceString(sLogUrl, "/Logfile_2.odt", "/Logfile.odt")
Else
sLogUrl = ReplaceString(sLogUrl, "/Logfile_" & cStr(i) & ".odt", "/Logfile_" & cStr(i-1) & ".odt")
End If
i = i + 1
End If
Loop Until Not bLogIsThere
bLogExists = True
[b]oLogDocument.StoreAsUrl(sLogUrl, NoArgs())[/b]
End If
End Sub