OpenOffice.info

if fileexists( pfad_zur_datei ) then

stardesktop.loadComponentfromUrl(  pfad2 ,"_blank",0 ,NoArgs())

Hallo
Falls ich bei deinem Code durchblicke, solltest du mal die Zeile:
[quote]ordner_liste=oSFA.getFolderContents(pfad[b][color=#FF0000]2[/color][/b],False)[/quote]
korrigieren.

und ob eine Datei existiert prüft man schlicht mit:
[code]if fileexists( pfad_zur_datei ) then[/code]

edit: offenbar handelt es sich um ein Writerdokument, das öffnet man nicht per systemshell sondern per
[code]stardesktop.loadComponentfromUrl( pfad2 ,"_blank",0 ,NoArgs())
[/code]
Karo

pfad=thisComponent.Location
MsgBox pfad

pfad2="file:///Users/mymini/Netzlaufwerk/MeineAnwendung/Rechnungen/Zieldatei.odt"
			
pfad2=convertFromURL(pfad2) ' Konvertierung von der URL in eine systemkonforme Adresse
			msgbox ("pfad2=convertFromURL(pfad2)"+chr(13)+pfad2)
' BEVOR DIE RECHNUNG GEÖFFNET WERDEN KANN, MUSS GEPRÜFT WERDEN OB ES DIE DATEI MIT DEM 
' ENTSPRECHENDEM NAMEN GIBT
dim oSFA as Object
dim ordner_liste()

oSFA=createUnoService("com.sun.star.ucb.SimpleFileAccess")
ordner_liste=oSFA.getFolderContents(pfad,False)

sucherfolg=0
for i=0 to uBound(ordner_liste())
datei=convertFromURL(ordner_liste(i))
	if datei=pfad2 then sucherfolg=1

next

if sucherfolg=1 then
	' Rechnung oeffnen
		oShell=createUnoService("com.sun.star.system.SystemShellExecute")
msgbox pfad2
		oShell.execute(pfad2,,0)
	else
		msgbox("Zu dieser Rechnung gibt es im Rechnungsordner keine Datei mehr oder deren Bezeichnung wurde geändert.")
end if	

Hallo!

Habe einen Fehler welcher nur auf dem Mac auftritt, steht evtl. (ist mir nicht ganz klar) auch im Zusammenhang mit einem hier beschriebenen anderen Problem:
[url]http://de.openoffice.info/viewtopic.php?f=18&t=52922[/url]

Habe folgende Ordnerstruktur:
MeineAnwendung / Formulare / AufrufendeDatei.odt
MeineAnwendung / Rechnungen / Zieldatei.odt

In der Zieldatei habe ich folgendes Makro ausgeführt:
[code]
pfad=thisComponent.Location
MsgBox pfad
[/code]
Ergebnis:
file:///Users/mymini/Netzlaufwerk/MeineAnwendung/Rechnungen/Zieldatei.odt

In der Anwendung AufrufendeDatei.odt kommt also folgender Code:
[code]
pfad2="file:///Users/mymini/Netzlaufwerk/MeineAnwendung/Rechnungen/Zieldatei.odt"

pfad2=convertFromURL(pfad2) ' Konvertierung von der URL in eine systemkonforme Adresse
msgbox ("pfad2=convertFromURL(pfad2)"+chr(13)+pfad2)
' BEVOR DIE RECHNUNG GEÖFFNET WERDEN KANN, MUSS GEPRÜFT WERDEN OB ES DIE DATEI MIT DEM
' ENTSPRECHENDEM NAMEN GIBT
dim oSFA as Object
dim ordner_liste()

oSFA=createUnoService("com.sun.star.ucb.SimpleFileAccess")
ordner_liste=oSFA.getFolderContents(pfad,False)

sucherfolg=0
for i=0 to uBound(ordner_liste())
datei=convertFromURL(ordner_liste(i))
if datei=pfad2 then sucherfolg=1

next

if sucherfolg=1 then
' Rechnung oeffnen
oShell=createUnoService("com.sun.star.system.SystemShellExecute")
msgbox pfad2
oShell.execute(pfad2,,0)
else
msgbox("Zu dieser Rechnung gibt es im Rechnungsordner keine Datei mehr oder deren Bezeichnung wurde geändert.")
end if
[/code]

Es kommt nicht mal zu meiner MsgBox welche informieren soll, dass es die entsprechende Datei nicht gibt, stattdessen folgende Fehlermeldung:
BASIC-Laufzeitfehler
Es ist eine Ausnahme aufgetreten
Type:com.sun.star.system.SystemShellExecuteException
Message: No such file or directory

Sorry, ich habe mir den Pfad zuvor durch thisComponent.Location anzeigen lassen, verstehe also nicht, warum es diese Datei nun nicht geben soll.

Verzichte ich aber auf die Konvertierung per ConvertFromURL, bekomme ich zumindest meine eigene Fehlermeldung in der MsgBox, aber es funzt trotzdem nicht richtig!