OpenOffice.info

msgbox DirectoryNameOutOfPath( ThisComponent.URL , GetPathSeparator() ) 

[quote="owni"]leider bekomme ich beim ausführen einen Basic-Laufzeitfehler in der Function DirecotyNameoutofPath(...)
bei [b]LocFileName = FileNameoutofPath(sPath, Separator)[/b][/quote]

in meinem Beispiel ist der Aufruf falsch!
Neben der URL ist der systemabhängige Pfadtrenner mitzugeben, also:
[code]
msgbox DirectoryNameOutOfPath( ThisComponent.URL , GetPathSeparator() ) [/code]

Für zukünftig Suchende.

Function DirectoryNameoutofPath(sPath as String, Separator as String) as String
Dim LocFileName as String
	LocFileName = FileNameoutofPath(sPath, Separator)
	DirectoryNameoutofPath = RTrimStr(sPath, Separator & LocFileName)
End Function

Hi,

leider bekomme ich beim ausführen einen Basic-Laufzeitfehler in der Function DirecotyNameoutofPath(...)
bei [b]LocFileName = FileNameoutofPath(sPath, Separator)[/b]

[code]Function DirectoryNameoutofPath(sPath as String, Separator as String) as String
Dim LocFileName as String
LocFileName = FileNameoutofPath(sPath, Separator)
DirectoryNameoutofPath = RTrimStr(sPath, Separator & LocFileName)
End Function[/code]


Habe es allerdings mittlerweile auf eine zwar etwas umständlichere Art und weise gelöst aber es funktioniert trotzdem.

Vielen Dank
owni

With GlobalScope.BasicLibraries
If ( Not .isLibraryLoaded("Tools") ) Then
  .LoadLibrary( "Tools" )
End If
End With
msgbox DirectoryNameOutOfPath( ThisComponent.URL ) 

Willkommen im Forum!

[color=#008000]CURDIR() [/color]gibt Dir den aktuellen Arbeitspfad wieder.
Bei dieser BASIC-Funktion kam es in einem der letzten Releases (3.0.0 ?) zu einem Fehler.

Du suchst doch den Pfad der geöffneten Datei?!
Dann probiere mal:
[code]
With GlobalScope.BasicLibraries
If ( Not .isLibraryLoaded("Tools") ) Then
.LoadLibrary( "Tools" )
End If
End With
msgbox DirectoryNameOutOfPath( ThisComponent.URL ) [/code]

Hilft Dir das?

Sub Ordnerdurchsuchung

Dim OrdnerInhalt()
Dim oSimpleFileAccess
dim sURL as string

sURL = ConvertToUrl(CURDIR())
oSimpleFileAccess=createunoservice("com.sun.star.ucb.SimpleFileAccess")
OrdnerInhalt() = oSimpleFileAccess.getFolderContents(sUrl, false)
oDocumentLoc = ThisComponent

oSheet0 = oDocumentLoc.Sheets.getByName("Zusammenfassung")
oCellRange1 = oSheet0.getCellRangeByPosition(1,11,2,5000)

oCellRange1.clearContents(com.sun.star.sheet.CellFlags.STRING + com.sun.star.sheet.CellFlags.VALUE) 

b = 11

for i = 0 to uBound(OrdnerInhalt())
	oDocumentLoc = ThisComponent
	url=OrdnerInhalt(i)
	urlCheck = convertfromurl(url)
	urlCheck = right(urlCheck,19)
	
	if urlCheck = "Zusammenfassung.ods" then
		goto We01
	end if
	
	urlCheck = right(urlCheck,1)
	
	if urlCheck = "#" then
		goto We01
	end if
	
	dim myFileProp() as New com.sun.star.beans.PropertyValue
	'myFileProp(i).name="Hidden"
'	myFileProp(i).value=true

	oDocumentExt = StarDesktop.loadComponentFromURL(url, "_Hidden", 0, myFileProp() )
	
	oSheet0 = oDocumentLoc.Sheets.getByName("Zusammenfassung")
	oSheet1 = oDocumentExt.Sheets.getByName("Zusammenfassung")
	

Hallo Leute,

ich hab ein Problem. Meine Firma hatte bislang StarOffice im Einsatz.

Und ein Zusammenfassungsscript, welches ich verfasst habe, hat sämtliche dateien in dem Ordner in welchem die Zusammenfassungs.ods liegt ausgelesen.
Vor ein paar Wochen sind auf auf OpenOffice umgestiegen. Leider habe ich jetzt mit einem Script ein Problem.

Und zwar:

Ich habe im StarOffice den Befehl:
[b]sURL = ConvertToUrl(CURDIR())[/b]

Dieser Befehl gab mir im StarOffice den Pfad aus, in dem ich die Zusammenfassung.ods geöffnet habe. Jetzt im OpenOffice bekomme ich den Wert:
"File:///E:/Programme/OpenOffice.org%203/program" statt wie damals: "File:///I:Pool/DenAktuellenPfad"

Kennt jemand einen Befehl, den ich in OpenOffice dafür verwenden muss? Wäre echt super wenn mir jemand helfen könnte, da wir diese Zusammenfassung recht dringend benötigen.

Vielen Dank im voraus

Grüße
owni

[code]Sub Ordnerdurchsuchung

Dim OrdnerInhalt()
Dim oSimpleFileAccess
dim sURL as string

sURL = ConvertToUrl(CURDIR())
oSimpleFileAccess=createunoservice("com.sun.star.ucb.SimpleFileAccess")
OrdnerInhalt() = oSimpleFileAccess.getFolderContents(sUrl, false)
oDocumentLoc = ThisComponent

oSheet0 = oDocumentLoc.Sheets.getByName("Zusammenfassung")
oCellRange1 = oSheet0.getCellRangeByPosition(1,11,2,5000)

oCellRange1.clearContents(com.sun.star.sheet.CellFlags.STRING + com.sun.star.sheet.CellFlags.VALUE)

b = 11

for i = 0 to uBound(OrdnerInhalt())
oDocumentLoc = ThisComponent
url=OrdnerInhalt(i)
urlCheck = convertfromurl(url)
urlCheck = right(urlCheck,19)

if urlCheck = "Zusammenfassung.ods" then
goto We01
end if

urlCheck = right(urlCheck,1)

if urlCheck = "#" then
goto We01
end if

dim myFileProp() as New com.sun.star.beans.PropertyValue
'myFileProp(i).name="Hidden"
' myFileProp(i).value=true

oDocumentExt = StarDesktop.loadComponentFromURL(url, "_Hidden", 0, myFileProp() )

oSheet0 = oDocumentLoc.Sheets.getByName("Zusammenfassung")
oSheet1 = oDocumentExt.Sheets.getByName("Zusammenfassung")
[/code]