' 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

7 Ways Technology Has Changed Traditional Payments
In today’s digital world, technology has changed how we make payments. From contactless cards to mobile wallets, it’s now easier