Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" _
(ByVal lpPath As String) As Long
 
Private Sub Form_Load()
    ' Wenn Pfad nicht existiert,wird er angelegt.
    MakeSureDirectoryPathExists "c:\samples\mydir\basic\software\"
End Sub