Private Sub Command1_Click() Dim f As New FileSystemObject f.CreateFolder "c:\test" Set f = Nothing End Sub