OpenOffice.info

Sub extractPath

    Dim oDatenquelle As Object
    Dim sPath As String
    Dim sPath_relativ As String
    
    'Wird für Funktionen weiter unten gebraucht
    GlobalScope.BasicLibraries.LoadLibrary("Tools")
    
    'vollständigen Pfad auslesen und Dateiname der Datenbank aus dem Pfad entfernen
    oDatenquelle = ThisDatabaseDocument.DataSource   
    sPath = ConvertFromUrl(oDatenquelle.Name)
    sPath = DirectoryNameoutofPath(sPath, GetPathSeparator())
    
    'nur den Pfad für den Unterordner relativ zur Datenbank zusammenbauen
    sPath_relativ = sPath + GetPathSeparator() + "Ordner" + GetPathSeparator() + "Dateiname.Dateiendung"
    
    'MsgBox sPath_relativ
End sub

GetPathSeparator()

Hallo!

Falls dein Problem nach knapp 2 Wochen noch besteht:

Du könntest versuchen mit dem Makro den aktuellen Pfad der Datenbank auszulesen und relativ dazu dann den Unterordner ansteueren

also z.B.:

[code=php]
Sub extractPath

    Dim oDatenquelle As Object
    Dim sPath As String
    Dim sPath_relativ As String
    
    'Wird für Funktionen weiter unten gebraucht
    GlobalScope.BasicLibraries.LoadLibrary("Tools")
    
    'vollständigen Pfad auslesen und Dateiname der Datenbank aus dem Pfad entfernen
    oDatenquelle = ThisDatabaseDocument.DataSource   
    sPath = ConvertFromUrl(oDatenquelle.Name)
    sPath = DirectoryNameoutofPath(sPath, GetPathSeparator())
    
    'nur den Pfad für den Unterordner relativ zur Datenbank zusammenbauen
    sPath_relativ = sPath + GetPathSeparator() + "Ordner" + GetPathSeparator() + "Dateiname.Dateiendung"
    
    'MsgBox sPath_relativ
End sub
[/code]-tags

Mit der (undokumentierten) Methode [code]GetPathSeparator()[/code] erhälst du den systemspezifischen Pfadtrenner (also unter Windows "\" oder unter Linux "/") somit sollte der Code nicht nur auf verschiedenen Rechnern und Laufwerken, sondern auch unter verschiedenen Betriebssystemen laufen

Grüße aus Wien
Rasakul

Hallo

Ich arbeite gerade an einer Datenbank, in dieser
möchte ich per Button eine Datei/ ein Bild mit der Windows Fotoanzeige öffnen!

Es funktioniert auch schon, doch möchte ich den Pfad der Datei in einem Unterordner der Datenbank verknüpfen!
Da die Datenbank inkl. Unterordner auf verschiedenen Laufwerken/Rechnern laufen soll!
(Also einen relativen Pfad angeben können)

Ich bekomme das Bild auch schon als "Vorschaubild" in die Datenbank, aber ich möchte das Originalbild aus der Datenbank öffnen können!

Hat jemand so etwas schon gemacht? Bitte um Makro Code, da ich erst angefangen habe Makros zu schreiben!

Ist so etwas möglich?
Bitte um Hilfe!
Vielen Danke
Leo