' 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 Future of iOS App Development: Trends to Watch
When it launched in 2008, the Apple App Store only had 500 apps available. By the first quarter of 2022, the store had about 2.18 million iOS-exclusive apps. Average monthly app releases for the platform reached 34,000 in the first half of 2022, indicating rapid growth in iOS app development.