Thank you!

Awesome macro, really helped me out a lot!

I made a few enhancements, like only creating the designer if one doesn’t exist already, and automatically making the original class partial…

Sub ExtractWinFormsDesignerFile()
…
…
Dim newItemPath As String = dir & “\” & bareName & “.Designer.cs”

‘Check if designer file already exists
‘If it does, don’t create one — Adam Best
Dim childItems As ProjectItems = item.ProjectItems
Dim childItem As ProjectItem
Dim designer As Boolean = False

For Each childItem In childItems
If (childItem.FileNames(1) = newItemPath) Then
designer = True
Exit For
End If
Next

If (Not designer) Then
Dim codeClass As CodeClass = findClass(item.FileCodeModel.CodeElements)
…
…
makeOriginalClassPartial(item.FileCodeModel.CodeElements)

End If
End Sub

And the added function is…

‘Make original class partial — Adam Best
Function makeOriginalClassPartial(ByVal items As System.Collections.IEnumerable)

Dim text As String = String.Empty
Dim newText As String = String.Empty

For Each codeEl As CodeElement In items
If codeEl.Kind = vsCMElement.vsCMElementClass Then
Dim start As EditPoint = codeEl.GetStartPoint().CreateEditPoint()
Dim endPoint As TextPoint = codeEl.GetStartPoint(vsCMPart.vsCMPartBody)
text = start.GetText(endPoint)
If (Not text.Contains(“partial class”)) Then
newText = text.Replace(“class”, “partial class”)
start.Delete(endPoint)
start.Insert(newText)
End If
ElseIf codeEl.Children.Count > 0 Then
Dim partialOrigClass As Boolean = makeOriginalClassPartial(codeEl.Children)
End If
Next

End Function