Hallo Excelfreunde,
ich möchte gern den UNC Pfad einer Datei auslesen.
Ich habe einen normalen Datei Pfad in der Zelle P1 zu stehen.
(P:\Admin\aktueller_Ordner\forum3.xlsb)
Diesen ermittle ich mit
Dim strDatei, wks As Worksheet
strDatei = Application.GetOpenFilename
If strDatei False Then
'Set wks = Workbooks.Open(strDatei).Sheets(1)
Tabelle1.Range("p1") = strDatei
Else
Exit Sub
End If
Da sich aber ständig die Laufwerksbuchstaben ändern möchte ich gern mit den UNC Pfad arbeiten.
Dazu habe ich diesen Code gefunden. (ohne API)
Dim fso As Object, sLWB As String, sServer As String
Set fso = CreateObject("Scripting.FileSystemObject")
sLWB = fso.GetDriveName(Tabelle1.Range("p1"))
sServer = fso.getdrive(sLWB).ShareName
Tabelle1.Range("q1") = sServer
Debug.Print sServer
MsgBox sServer
Set fso = Nothing
Dieser liefert mir schon mal den halben Pfad z.b. \\Server\Arbeitsbereiche.
Ich benötige jedoch den Kompletten Pfad mit Dateiname z.b.
\\Server\Arbeitsbereiche\\Admin\aktueller_Ordner\forum3.xlsb
Diesen möchte ich dann gern in die Zelle Q1 schreiben
Kann mir jemand dabei behilflich sein?
https://www.herber.de/bbs/user/141358.xlsb
MFG Thomas