This LotusScript code creates the full directory path without you having to create all the subdirectories.

Declare Function MakeSureDirectoryPathExists Lib "IMAGEHLP.DLL" (Byval DirPath As String) As Long
Sub Initialize
FullDestPath = "c:\aa\bb\cc\dd\" 'Specify full path to create.
If MakeSureDirectoryPathExists(FullDestPath) = 0 Then ' Error during path creating?
 Msgbox "Error creating path: " & FullDestPath
End If
End Sub


Related functions:
CreateDirectory
CreateDirectoryEx
SHCreateDirectoryEx