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
leezacAsked:
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
0
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.