' Create a nested directory'' This is similar to the MkDir command, but it creates any' intermediate directory if necessarySub MakeDirPath(dirname As String) Dim i As Long, path As String Do i = InStr(i + 1, dirname & "", "") path = Left$(dirname, i - 1) ' don't try to create a root directory If Right$(path, 1) <> ":" And Dir$(path, vbDirectory) = "" Then ' make this subdirectory if it doesn't exist ' (exits if any error) MkDir path End If Loop Until i >= Len(dirname)End Sub


The Best Mechanical Keyboards For Programmers: Where To Find Them
When it comes to programming, a good mechanical keyboard can make all the difference. Naturally, you would want one of the best mechanical keyboards for programmers. But with so many