Sub cmdCreateFolder_Click() Dim myFileSystemObject As FileSystemObject Set myFileSystemObject = New FileSystemObject myFileSystemObject.CreateFolder ("c:\ttt") End Sub