Office: Ordner auslesen

Hallo Zusammen,
ich möchte einen Sharepoint-Ordner hiermit auslesen:

Sub ordner1()
Dim strDatei As String
Dim lngZ As Long
On Error GoTo Fin
Sheets("Tabelle1").Columns(1) = ""
Application.ScreenUpdating = False
lngZ = 8
strDatei = Dir(Sheets("Tabelle1").Range("B5").Value)
Do Until strDatei = ""
Sheets("Tabelle1").Cells(lngZ, 1) = strDatei
strDatei = Dir
lngZ = lngZ + 1
Loop
Fin:
Application.ScreenUpdating = True
End Sub

Es funktioniert, da ich den Ordner als LW eingebunden habe, wenn in Tabelle1, B5 der Pfad mit LW-Buchstabe steht

Da aber die User unterschiedliche LW-Buchstaben nutzen, möchte ich es so haben, funktioniert aber nicht:
https://muster.com/sites/Fin/Z1/Vorgaben
Kann mir da einer weiterhelfen?
Danke schon einmal und Gruß
Georg

:)

 

Hi Georg,

vorausgesetzt, bei den Kollegen ist nur der LW-Buchstabe anders, aber der eingebundene Sharepoint immer gleich, warum "suchst" du nicht nach dem richtigen LW-Buchstaben + Sharepoint-Name?

z Bsp

Code:

die Zeile
If Dir(Chr(liChar) & ":SharepointName") "" Then
MUSS
If Dir(Chr(liChar) & ":BACKSLASHSharepointName") "" Then
heißen

Ich weiß nicht, wieso hier BACKSLASH "verschluckt" wird *eek.gif*

Hilfts?
(ungetestet, weil ich kein O365 oder O2016 nutze + somit Sharepoints nicht verwende.

Aber ich hab es zumindest lokal getestet, also mit LW-Buchstaben, die auf meinem PC nicht vorhanden sind.

Ciao
Thorsten

 

Moin Thorsten!
Ist ein seit langem bekanntes Problem, welches an der Forensoftware liegt.

Lösung:
einfach: doppelte Eingabe des Backslashes: \
(allerdings wird es bei jedem Edit wieder gelöscht!)

schwieriger: Html-Code (ohne Blanks) nutzen: & #92 ; \

Gruß Ralf

 

Hi Ralf,

und danke hierfür: *wink.gif*

Ciao
Thorsten

 

Hi Georg,

ok, dann also noch mal...diesmal mit Austricksen der Forumssoftware! *tongue.gif* *grins

Code:

Mit dem nun an der richtigen Stelle ist der Code für dich vielleicht verständlicher.

Aber dafür müssten wir von dir mal eine Antwort sehen *biggrin.gif*

Ciao
Thorsten