saveAsUrl

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

gschuckar
****
Beiträge: 140
Registriert: Fr, 24.02.2006 14:27

saveAsUrl

Beitrag von gschuckar »

Hallo,
mit dem folgendem Code speichere ein Calcdokument, welches ich vorher neu erstellt habe.

Code: Alles auswählen

private function saveDocAs (sName as String) as boolean
	on error goto ErrorHandler
	dim bReturn as boolean
	dim saveProps() as new com.sun.star.beans.PropertyValue
	dim sURL as String
	dim sPath as String
	sPath = getPathWork()
	sURL = ConvertToURL(sPath & "/haus/" & sName & ".ods")
	oDoc.storeAsURL (sURL, saveProps()) 
	saveDocAs = true
	exit function
ErrorHandler:
	mdlErrorMessage.setErrorMsg ( "Error " & Err & ": " & chr(13) & Error$ & _
		" (line : " & Erl & ")" & " in sub mdlNewHome.saveDocAs()")
	saveDocAs= false
end function ' saveDocAs
Das funktioniert auf Linux und Win. Ich benutze Fedora Core 5 und win 2000(.-)) und OO 2.1 und oo 2.3.
Das Problem ist, das die neu erstellte Datei im Pfad /haus/ durchaus schon vorhanden sein könnte. Ich möchte gerne gewarnt werden, wenn dies so ist. Im Developers Guide steht
----
The method storeAsUrl() is the exact representation of File- Save as from the File menu.
---
Nur leider erhalte ich mit dem obigen Code keine Warnmeldung, wenn das File bereits im Pfad existiert. Speichere ich das Dokument via datei - Speichern unter, dann erhalte ich die Warnmeldung. Leider habe ich auch im Buch Makros in Openoffice.org 2.0 keine Hilfe diesbezüglich gefunden. Habe ich etwas überlesen? Kann mir bitte jemand bei der Lösung helfen?
Danke
Gerd Schuckar
Karolus
********
Beiträge: 7517
Registriert: Mo, 02.01.2006 19:48

Re: saveAsUrl

Beitrag von Karolus »

Hallo Gerd

S. 134 Absatz 2 :
...
if FileExist(sURL) then
....

Gruß Karo
LO7.4.7.2 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO24.8.2.1 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
gschuckar
****
Beiträge: 140
Registriert: Fr, 24.02.2006 14:27

Re: saveAsUrl

Beitrag von gschuckar »

Moin Karo,
Karolus hat geschrieben: S. 134 Absatz 2 :
...
if FileExist(sURL) then
....
Gruß Karo
Danke für den Tip. Hab ich überlesen. Es funktioniert.
Gruß
Gerd
Antworten