Make Path

[mmaule]

Why is this not working?

Where sPath is C:\Access DB\XML_Output\ATMS-DS\Input\Directives

Function funMakePath(sPath As String) As Boolean
'
' Tests if path exists
' If path does not exist, creates path
' Returns True
'
Dim intPoint As Integer
Dim strPathPart As String
Dim strDir() As String
intPoint = 0
funMakePath = False
'
' Initially test if path exists
'
If Len(Dir(sPath)) > 0 Then ' If path exists
funMakePath = True
Exit Function ' funMakePath
Else
GoSub MakeDirectories
End If ' Len(Dir(sPath))
Exit Function ' funMakePath
'
MakeDirectories:
strPathPart = ""
strDir = Split(sPath, "\")
strPathPart = strDir(0)
For intPoint = 1 To UBound(strDir) - 1
strPathPart = strPathPart & "\" & strDir(intPoint)
If Len(Dir(strPathPart)) = 0 Then


MkDir strPathPart
End If
Next
funMakePath = True
Return
End Function ' funMakePath

[rpeare]

What are you trying to do?

With no concept of what you are actually trying to do fixing problems is.... difficult

[mmaule]

I am trying to test if path exists and if it does not exist, create it.

[rpeare]

Dim fs
Dim directoryarray
Dim arrayitem
Dim sPath
Dim sPathConc

sPath = "c:\Access DB\XML_Output\ATMS-DS\Input\Directives"
Set fs = CreateObject("Scripting.filesystemobject")
directoryarray = Split(sPath, "\")

For Each arrayitem In directoryarray
    sPathConc = sPathConc & arrayitem & "\"
    Debug.Print sPathConc
    If fs.folderexists(sPathConc) Then
        'do whatever if the folder already exists
    Else
        fs.createfolder (sPathConc)
    End If
Next arrayitem
Set fs = Nothing

you have to recursively create directories if they do not exist.

[mmaule]

Modified my code with the information you provided and it works great.

Thanks