OpenOffice.info

Moin Karo,
[quote="Karolus"]
S. 134 Absatz 2 :
...
if FileExist(sURL) then
....
Gruß Karo[/quote]
Danke für den Tip. Hab ich überlesen. Es funktioniert.
Gruß
Gerd

Hallo Gerd

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

Gruß Karo

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

Hallo,
mit dem folgendem Code speichere ein Calcdokument, welches ich vorher neu erstellt habe.
[code]
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
[/code]
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