VS.Net macro

I stedet for "minfil.asp" skal der altså sættes den selectede fil fra solution explorer ind. Dens mappe skal også sættes ind der hvor der pastes.

Filnavnet kan bestemmes således

Dim SelContain As SelectionContainer
Dim ContainerItem As SelectedItem
SelContain = DTE.SelectedItems.SelectionContainer
ContainerItem = DTE.SelectedItems.Item(1)
filnavn = ContainerItem.Name

Jeg har nu fået bikset en funktion sammen der kan udskrive de valgte filer. Men jeg aner ikke hvordan jeg får dem kopieret.

    Sub SelectedItemsExample()
        Dim SelItems As SelectedItems
        Dim SelItemObj As SelectedItem
        Dim SelContain As SelectionContainer
        Dim SelItem As SelectedItem
        Dim NameStr As String

        SelItems = DTE.SelectedItems

        SelItemObj = SelItems.Item(1)
        For Each SelItem In SelItemObj.Collection
            NameStr = NameStr & SelItem.ProjectItem.ContainingProject.Name & SelItem.Name
        Next
        MsgBox("Du har markeret: " & NameStr)
    End Sub

Sub SelectedItemsExample()
        Dim SelItems As SelectedItems
        Dim SelItemObj As SelectedItem
        Dim SelContain As SelectionContainer
        Dim SelItem As SelectedItem
        Dim NameStr As String

        SelItems = DTE.SelectedItems

        SelItemObj = SelItems.Item(1)
        For Each SelItem In SelItemObj.Collection

        SelItem.DTE.ExecuteCommand("Edit.Copy")

        Next
    End Sub

Så langt så godt. Jeg kan kopiere og sætte ind. Jeg kan bare ikke finde ud af at bestemme mappen hvorfra filen er kopieret og hvortil den skal sættes ind.

    Sub SelectedItemsExample()
        Dim SelItems As SelectedItems
        Dim SelItemObj As SelectedItem
        Dim SelContain As SelectionContainer
        Dim SelItem As SelectedItem
        Dim NameStr As String

        SelItems = DTE.SelectedItems

        SelItemObj = SelItems.Item(1)
        For Each SelItem In SelItemObj.Collection
            NameStr = NameStr & SelItem.ProjectItem.ContainingProject.Name & SelItem.Name
            SelItem.DTE.ExecuteCommand("Edit.Copy")

            DTE.ActiveWindow.Object.GetItem("Solution\http://www.domain.dk/\").Select(vsUISelectionType.vsUISelectionTypeSelect)
            DTE.ExecuteCommand("Edit.Paste")

        Next

        MsgBox("Du har kopieret: " & NameStr)
    End Sub

Så fandt jeg selv ud af det.

    Sub Kopier()
        Dim SelItems As SelectedItems
        Dim SelItemObj As SelectedItem
        Dim SelContain As SelectionContainer
        Dim SelItem As SelectedItem
        Dim NameStr As String
        Dim folder As String
        Dim fil As String
        Dim FilLgn As Integer
        Dim pos As Integer
        Dim lng As Integer

        SelItems = DTE.SelectedItems

        SelItemObj = SelItems.Item(1)
        For Each SelItem In SelItemObj.Collection
            FilLgn = Len(SelItem.Name)

            pos = InStr(SelItem.ProjectItem.FileNames(1), "udv.robinhus.dk") + 16
            lng = Len(SelItem.ProjectItem.FileNames(1))
            folder = Mid(SelItem.ProjectItem.FileNames(1), pos, lng - FilLgn - pos)
            fil = SelItem.Name

            NameStr = NameStr & SelItem.ProjectItem.ContainingProject.Name & "\" & folder & fil
            SelItem.DTE.ExecuteCommand("Edit.Copy")


            DTE.ActiveWindow.Object.GetItem("Solution\http://www.domain.dk/\" & folder).Select(vsUISelectionType.vsUISelectionTypeSelect)
            DTE.ExecuteCommand("Edit.Paste")

        Next

    End Sub
    End Sub