Creazione cartelle col vb

[vonkranz]

   If Dir("NomeCartella", vbDirectory) = "" Then
      MkDir "NomeCartella"
   End If