Issue #4016 AddComponentCommand should use the active project name as a default folder name

Author: Imh0t3b

Rubberduck.Core/UI/CodeExplorer/Commands/AddComponentCommand.cs

@@ -9,7 +9,6 @@ namespace Rubberduck.UI.CodeExplorer.Commands
     public class AddComponentCommand
     {
         private readonly IVBE _vbe;
-        private const string DefaultFolder = "VBAProject";
 
         public AddComponentCommand(IVBE vbe)
         {
@@ -69,16 +68,22 @@ private Declaration GetDeclaration(CodeExplorerItemViewModel node)
 
             return (node as ICodeExplorerDeclarationViewModel)?.Declaration;
         }
-
+        private string GetActiveProjectName()
+        {
+            using (var activeProject = _vbe.ActiveVBProject)
+            {
+                return activeProject.Name;
+            }
+        }
         private string GetFolder(CodeExplorerItemViewModel node)
         {
             switch (node)
             {
                 case null:
-                    return DefaultFolder;
+                    return GetActiveProjectName();
                 case ICodeExplorerDeclarationViewModel declarationNode:
                     return string.IsNullOrEmpty(declarationNode.Declaration.CustomFolder)
-                        ? DefaultFolder
+                        ? GetActiveProjectName()
                         : declarationNode.Declaration.CustomFolder.Replace("\"", string.Empty);
                 default:
                     return ((CodeExplorerCustomFolderViewModel)node).FullPath;