Who have the best one???

[xmin]

Code:
---------------------------

If Dir(Trim(Text1.Text),vbDirectory)="" Then
If MsgBox("The directory does not exist. Do you want to create it?",vbYesNo+vbQuestion,"")=vbYes Then
MkDir Trim(Text1.Text)
End If
End If

--------------------------
Visual Basic Professional 6.0