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