MkDir runtime Error 76. Path Not Found 1

[sna1maa14]

I'm trying to create a new folder if it does not exsit but I keep getting a runtime Error 76, Path Not Found. It only happens if I specify multiple folders ex. Mkdir "D:\Folder1\Folder2". If I put Mkdir "D:\Folder1" it works. What am I doing wrong.

Thanks
Sna1maa

 

[PHV]

To successfully create D:\Folder1\Folder2, D:\Folder1 must be an existing folder.

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

 

[sna1maa14]

I was afraid you were going to say that. Thanks.

 

[PHV]

Brute force method.
In a standard code module create this procedure:

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

Now, you can use this code (even if D:\Folder1 doesn't exists):
myMkDir "D:\Folder1\Folder2"

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