Not finding correct path

The code below is looking for a C:\ drive for ADir when the ADir is a UNC path.   Is there anything I can add where it will see the correct path or is it correct the way it is?

Public ADir As String

Dim ABC As String, ArcName As String, MyName As String

xDir = ActiveWorkbook.FullName

ArcName = ADir & "\" & "Filename" & ".ARC"

    ABC = Dir(ADir, vbDirectory)
    If ABC = "" Then
        MsgBox "Creating directory " & ADir
        MkDir ArcDir
    End If

Public Sub Auto_Open

ADir = tabMenu.Range("Dir2").Offset(0, 1).Value  ' shows UNC path
Who is Participating?
Robberbaron (robr)Connect With a Mentor Commented:
correct as far as i can tell.

1. does the value of Adir actually exist at the time of looking at folder ?
Check by adding a debug...

Public Adir As String

Sub test()

    Dim ABC As String
    xDir = ActiveWorkbook.FullName
    arcname = Adir & "\" & "Filename" & ".ARC"
    MsgBox "ADIR=" & Adir & vbCrLf & "arcname=" & arcname
    ABC = Dir(Adir, vbDirectory)
    If ABC = "" Then
        MsgBox "Creating directory " & Adir
        MkDir Adir   '<<<fix here as well
    End If
End Sub

Open in new window

Private Sub Workbook_Open()
    Adir = "\\server\share"
End Sub

Open in new window

This gives the expected result but fails at the Dir command of course
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.