Seite 1 von 1
Re: best Ordner per Schalter öffnen gleicher Pfad wie Datenb
Verfasst: Sa, 15.01.2011 21:27
von Stephan
1.
Der Code ist nur für Windows tauglich, sofern das so sein soll wäre diesbezüglich nichts zu ändern.
2.
Ich persönlich würde den Zugriff auf das Makro "DirectoryNameoutofPath" in der Toolsbibliothek vermeiden, und das Ganze lieber gleich in meinem Makro machen, weil die Toolsbibliothek auch einmal fehlen kann, das ist aber mehr Ansichtssache als tatsächliches Optimierungspotential.
Gruß
Stephan
Re: best Ordner per Schalter öffnen gleicher Pfad wie Datenb
Verfasst: Mo, 17.01.2011 22:51
von DPunch
Aloha
Zuallererst solltest solltest Du das Pfad-Trennzeichen nicht fest im Code codieren - Linux mit "/" gegen Windows mit "\".
Code: Alles auswählen
sSubDirectoryName = "Vorgang"
sPath = oDoc.Url
sSeparator = GetPathSeparator()
i = 0
nLen = Len(sPath)
Do While Mid(sPath,nLen-i,1) <> sSeparator
i = i + 1
Loop
sDirectoryPath = Left(sPath,nLen-i)
sFullPath = sDirectoryPath & sSubDirectoryName
msgbox sFullPath
Zudem könnte der Shell-Aufruf (explorer) unter Linux Probleme bereiten - da kenne ich mich aber leider zu wenig aus, um Hilfestellung geben zu können.
Re: best Ordner per Schalter öffnen gleicher Pfad wie Datenb
Verfasst: Di, 18.01.2011 12:58
von DPunch
Aloha
clipnotic hat geschrieben:Ich erhalte aber eine Fehlermeldung bei folgender Zeile:
Die Fehlermeldung, die Du bekommst, kann ich leider nicht nachvollziehen.
Als Versuch könntest Du mal
Code: Alles auswählen
i = 0
nLen = Len(sPath)
cTmp = Mid(sPath,nLen-i,1)
Do While cTmp <> sSeparator
i = i + 1
cTmp = Mid(sPath,nLen-i,1)
Loop
probieren, aber ich habe keine Ahnung, ob das hilft.
clipnotic hat geschrieben:Gibt es eine Möglichkeit, dass aktuell laufende Betriebssystem auszulesen, dann das Ergebnis in eine Variable zu packen
Ja.
Code: Alles auswählen
i = GetGUIType
Select Case i
Case 1: MsgBox "Windows"
Case 4: MsgBox "UNIX"
End Select
Re: best Ordner per Schalter öffnen gleicher Pfad wie Datenb
Verfasst: Di, 18.01.2011 14:08
von DPunch
clipnotic hat geschrieben:wenn ich den Code nun so ändere, erscheint die gleiche Fehlermeldung in dieser Zeile
Die Fehlermeldung kann ich nur nachstellen, wenn sPath ein Leerstring ist, ansonsten funktioniert das wunderbar unter OOo 3.2 und WinXP.
Kann Dir in dieser Hinsicht also leider nicht weiterhelfen.