Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

Private Sub Form_Load()
' Sökvägen måste sluta på \ - annars skapas inte den sista mappen!
n = MakeSureDirectoryPathExists("C:\En\Mapp\I\En\Mapp\I\En\Mapp\")
' Om allt gick bra är n = 1, annars är det 0

End Sub