Solved

Network Drive Mapping

Posted on 2011-03-08
5
372 Views
Last Modified: 2012-05-11
I'm setting up a small bit of VBA Code to map a network drive if the path isn't available and i've got that to work but the mapping is showing up as
blank on 'UNC PATH'

rather then the usual
folder on 'UNC PATH'

is there anyway to fix that here is an example of the code

    Set wshNetwork = CreateObject("WScript.Network")
    Set colNetDrives = wshNetwork.EnumNetworkDrives
   
    For X = 71 To 90 'Letters G through Z
        DrvFound = False
   
        For Y = 1 To colNetDrives.Count - 1
            If colNetDrives.Item(Y) = Chr(X) & ":" Then
                DrvFound = True
            End If
        Next Y
       
        If Not DrvFound Then
            strDriveLtr = Chr(X) & ":"
            Exit For
        End If
    Next X
   
    wshNetwork.MapNetworkDrive strDriveLtr, sDRIVEMAPPING, True

End Sub
0
Comment
Question by:Thrawn3000
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
5 Comments
 
LVL 45

Expert Comment

by:Jackie Man
ID: 35077469
Run a ipconfig /all in command prompt and post back the results.
0
 
LVL 6

Expert Comment

by:Kody-Burg
ID: 35077472
Not entirely sure what you are asking, but I don't see anything in your code that actually tells the system where to map the drive to. You can do that with the following code:

Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "K:", "\\SERVERNAME\FOLDER"
                                               ^                           ^
                                          Drive Letter           Folder Location
0
 

Author Comment

by:Thrawn3000
ID: 35077649
Ok could better explain what i'm asking,

say i have the following UNC pathname

\\SERVER\FOLDER1\FOLDER2\FOLDER3\

When mapped manually through the 'Map Network Drive..' feature in windows XP it becomes

FOLDER3 on '\\SERVER\FOLDER1\FOLDER2'

when i use the code

wshNetwork.MapNetworkDrive strDriveLtr, sDRIVEMAPPING, True

strDriveLtr = the drive letter i'm assigning the map to
sDRIVEMAPPING = the UNC pathname

it comes up

 on \\SERVER\FOLDER1\FOLDER2\FOLDER3\

instead
0
 
LVL 45

Expert Comment

by:Jackie Man
ID: 35077847
The UNC path should be \\SERVER\FOLDER1\FOLDER2\FOLDER3 instead of \\SERVER\FOLDER1\FOLDER2\FOLDER3\
0
 
LVL 45

Accepted Solution

by:
Jackie Man earned 500 total points
ID: 35077856
You add an additional "\" after the UNC path.
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Map drive keeps removing itself 9 95
no display on laptop 5 86
how to copy from computer to usb drive 7 130
in what format to convert 4 k without losing quality? 12 73
cPanel is a Unix based web hosting control panel that provides a graphical interface and automation tools designed to simplify the process of hosting a web site. cPanel utilizes a 3 tier structure that provides functionality for administrators, rese…
It is only natural that we all want our PCs to be in good working order, improved system performance, so that is exactly how programs are advertised to entice. They say things like:            •      PC crashes? Get registry cleaner to repair it!    …
Two types of users will appreciate AOMEI Backupper Pro: 1 - Those with PCIe drives (and haven't found cloning software that works on them). 2 - Those who want a fast clone of their boot drive (no re-boots needed) and it can clone your drive wh…
Suggested Courses

734 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question