|
Is it possible to extend the function of the USE command to insert a friendly name for the network connection that is being made with the USE command. Using the code underneath it is possible to change the name of the network connection (\\fileserver\apps$) to the name \\fileserver\applications.
mapschijf “X”, “\\server\gebruiker$”, “Persoonlijke mappen”
mapschijf “Y”, “\\server\data$”, “Bedrijfsdata”
mapschijf “Z”, “\\server\apps$”, “Applicaties”
Function mapschijf(schijfletter,lokatie, omschrijving)
mDrive = schijfletter & “:”
WshNetwork.MapNetworkDrive mDrive, lokatie
Set oShell = CreateObject(”Shell.Application”)
oShell.NameSpace(mDrive).Self.Name = omschrijving
End Function
| 
