Sub Dir_Anlegen(Dir_Path as string)
 
on error goto Errorhandler
 
   [u]  MkDir Dir_Path
 
exit sub
 
Errorhandler:
 
select case err.number
 
     case 75     'Datei/Ordner vorhanden
         mache was ich dir sage xxxxx
 
     case 76       'Datei nicht vorhanden
         mache was ich dir sage xxxxx
end select
 
end sub