Filepicker

[Karolus]

Hallo

Code: Alles auswählen

sub Fehlzeiten
Dim Doc As Object
Dim FileProperties()
Dim Url As String
Url = convertToURL("F:\Schülerlisten\Klasse 9 0708\Fehlzeitenhelfer.ods")
	if fileexists(url) then
		Doc = StarDesktop.loadComponentFromURL(Url, "_blank", 0, FileProperties())
	else
		objDateiDlg = createUnoService("com.sun.star.ui.dialogs.FilePicker")
		objDateiDlg.execute()
	end if
end sub

Tuts das ?

Gruß Karo