Opvragen echte pad via VBa

Status
Niet open voor verdere reacties.

Jan van Asseldonk

Terugkerende gebruiker
Lid geworden
22 nov 2000
Berichten
1.805
Middels een macro wordt een directory aangemaakt en worden daarin gegevens weggeschreven. De directory staat op het netwerk en naar de hoofddirectory wordt tijdens het inloggen een mapping aangelegd met een driveletter, bijv P:
Nu doet zich de situatie voor dat de mapping naar P: bij een aantal gebruikers die op meerdere vestigingen werkzaam zijn naar een andere directory verwijst.
Voorbeeldje: P: verwijst bij gebruiker A naar \\serverUTR\data\afdelingen\Utrecht\
Bij gebruiker B is het \\serverAMST\data\afdelingen\Amsterdam\

Als ik vanuit P: een sheet start en daarna ActiveSheet.Path opvraag krijg ik in beide gevallen P: terug. Ik wil echter "\\serverUTR\data\afdelingen\Utrecht" terugkrijgen.

De mapping opnemen in het environment werkt niet omdat gebruikers tussentijds zelf de mapping aan kunnen passen.

Met NET USE P: kan ik dat wel opvragen maar dan krijg ik het niet ingelezen in een variabele.
Wie weet een oplossing?
 
Echte pad

Naam = CreateObject("Scripting.FileSystemObject").GetDrive("P:\").ShareName

In Extra - Verwijzingen - aanvinken: Microsoft Scripting Runtime
als dat niet is gedaan.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan