LibreOffice-Forum

Code: Alles auswählen

REM  *****  BASIC  *****

Sub Main

rem -------------------------------------------------------
rem - Init import URL
dim xmlurl as string
xmlurl = "file:///C:/Temp/payments.xml"

rem -------------------------------------------------------
rem - Import payments
dim properties(0) as new com.sun.star.beans.PropertyValue
properties(0).Name = "FilterName"
properties(0).Value = "Calc_Payments"

dim doc As Object 
doc = StarDesktop.loadComponentFromURL(xmlurl, "_blank", 0, properties())

End Sub

Code: Alles auswählen

Sub Main
	sPath = CurDir
	sValue = Dir$(sPath & getPathSeparator )
	
	do 
		sValue = Dir$
		if lcase(right(sValue,4))=".xml" then
			msgbox "Hurra! Da ist eine: " & sValue
		end if
	
	loop until sValue = ""

End Sub