' create a nested directory'' it's similar to MkDir, but it also creates' all intermediary sub-directoriesSub MakePath(ByVal path As String) Dim i As Integer, ercode As Long On Error Resume Next Do ' get the next path chunk i = InStr(i + 1, path & "", "") ' try to create this sub-directory Err.Clear MkDir Left$(path, i - 1) If Err = 0 Then ' the directory has been created ' do nothing ElseIf Err = 75 Then ' PathFile Access Error: the directory exists ' do nothing Else ' we can't continue if any other error ercode = Err On Error GoTo 0 Err.Raise ercode End If Loop Until i > Len(path) 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