Issues with MkDir command 1

[Sech]

I have a database which needs to create new directories on the fly as follows...

sCurrentDir = Dir("T:\Customer Support\VFSalesMI\Orders & Deliveries\" & CStr(lYear) & "\" & sMonthNo & sYearNo & "\", vbDirectory)
If sCurrentDir = "" Then
sNewDir = "T:\Customer Support\VFSalesMI\Orders & Deliveries\" & CStr(lYear) & "\" & sMonthNo & sYearNo & "\"
MkDir sNewDir
End If

It first checks to see if it exists already and if not creates the new directory. However on the MkDir command I'm getting the error 76 - Path Not Found. But of course it's not found, its supposed to be creating it. Is this error due to the directory being too long, or something else? If so, is there another way of implementing this?

 

[PHV]

In a standard code module create the following function:

Sub myMkDir(strFolderName As String)
On Error Resume Next
Dim a, t As String, i As Integer
a = Split(strFolderName, "\")
t = a(0)
For i = 1 To UBound(a)
  t = t & "\" & a(i)
  MkDir t
Next
End Sub

Then replace this:
MkDir sNewDir
with this:
myMkDir sNewDir

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Sech]

Cheers for the code PH, however its not recognising the command Split? Is that another sub and if so what is the code behind it?

 

[PHV]

My code is for ac2k or above.
You may find a Split function for ac97 here:

http://www.tek-tips.com/faqs.cfm?fid=4342

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Sech]

Thanks PH, got it sorted