OpenOffice.info

Ich bin natürlich kein Gast sondern
rübli

Hallo Leute,

Zugriff über Netz auf bestimmte Windowsverzeichnisse(Ordner)

ich habe mich mit der Forumbedienung eingehender beschäftigt und habe jetzt den Code als Datei eingefügt.

[codeSub GetFolder1
Dim oDlg as Object,oPS as Object, sPfad as string
oD1g = CreateUnoService("com.sun.star.ui.dialogs.OfficeFolderPicker")
oPS = CreateUnoService("com.sun.star.util.PathSettings")
oD1g.setTitle("Bitte ein Verzeichnis auswählen")
oD1g.setDisplayDirectory(oPS.work)
if oD1g.execute() then
sPfad = oD1g.getDirectory
startPath = Environ("exchange on 'Samba Server ISM (ism)' (Z:)") & Environ("/exchange/Mitarbeiter/7_Werkstatt+Labor/Datenbank/Labor_Messstrecken_Dokumentation_Messkurven/Dokumentation")
msgbox ConvertFromURL(sPfad)
end if
End SubEnd Sub][/code]

Ich hoffe,dass das jetzt praktikabler ist.
Leider bin ich immer noch auf der Suche nach einer Lösung. Wenn mir einer Tips geben kann, wäre schön.

Viele Grüße
Rübli

Hallo, da könnte eine zusätzliche Eigenschaft "untergeordnete Verzeichnisse zulassen" fehlen. Wie die konkret bezeichnet wird, weiß ich allerdings nicht; ich wüsste auch nicht, wo ich auf die Schnelle suchen sollte. Jürgen

PS. Es gibt den Vorschau-Button. Damit hättest du sehen können, dass dein Code falsch markiert wurde.

Ich bin gerade über die Frage gestolpert und habe dazu was gefunden:
Im gleichen Buch von Thomas Krummbein steht auf Seite 710

Wer allerdings unter Windows arbeitet, wird feststellen, dass der Vorgabepfad
(an sich das Arbeitsverzeichnis oPS.work) trotz korrekter Übergabe nicht als Startverzeichnis
genutzt wurde. Dies liegt an einem Bug des Win32FolderPicker-Systems
und ist auch bis jetzt nicht gefixt. Ein Vorgabeverzeichnis lässt sich hier leider
nicht einstellen.

Vielleicht interessiert das noch.
Pit