Dim  myPrj  As  EnvDTE.Project  =  DTE.ActiveWindow.Project

If   UCase (System.IO.Path.GetExtension(myPrj.FullName))  <>   " .CSPROJ "   Then
             MsgBox ( " 当前工程不是 C# 工程 " , MsgBoxStyle.Information,  " 复制CS工程 " )
             Exit Sub
         End   If

Dim  myFile  As   New  System.IO.StreamReader(myPrj.FullName, System.Text.Encoding.GetEncoding( 936 ))
         Dim  myDoc  As   New  System.Xml.XmlDocument
        myDoc.LoadXml(myFile.ReadToEnd())
        myFile.Close()

Dim  strPath  As   String   =   InputBox ( " 请输入输出目录名称 " ,  " 输入 " )
         If  strPath  Is   Nothing   Then
             Return
         End   If
         If  strPath.Length  =   0   Then
             Return
         End   If

Dim  ThisPath  As   String   =  System.IO.Path.GetDirectoryName(myPrj.FullName)

CopyFile(myPrj.FullName, strPath)

Dim  FileCount  As   Integer
         Dim  myElement  As  System.Xml.XmlElement
         Dim  strFileName  As   String
         Dim  strNewFileName  As   String
         For   Each  myElement  In  myDoc.SelectNodes( " VisualStudioProject/CSHARP/Build/Referencds/Reference " )
            strFileName  =  myElement.GetAttribute( " HintPath " )
             If  strFileName.StartsWith( " c: " )  =   False   And  strFileName.StartsWith( " C: " )  =   False   Then
                CopyFile(ThisPath, strPath, strFileName)
                FileCount  =  FileCount  +   1
             End   If
         Next

For   Each  myElement  In  myDoc.SelectNodes( " VisualStudioProject/CSHARP/Files/Include/File " )
            strFileName  =  myElement.GetAttribute( " RelPath " )

If   Not  strFileName  Is   Nothing   Then
                 If  strFileName.IndexOf( " : " )  =   - 1   Then
                    CopyFile(ThisPath, strPath, strFileName)
                    FileCount  =  FileCount  +   1
                 End   If
             End   If
         Next
         MsgBox ( " 共拷贝  "   &  FileCount.ToString()  &   "  个文件 " )

End Sub

Public   Sub  CreateDirectory( ByVal  strDir  As   String )
         If  System.IO.Directory.Exists(strDir)  =   False   Then
            System.IO.Directory.CreateDirectory(strDir)
         End   If
     End Sub
     Public   Sub  CopyFile( ByVal  strPath1  As   String ,  ByVal  strPath2  As   String ,  ByVal  strFilePath  As   String )
         Dim  strName1  As   String   =  System.IO.Path.Combine(strPath1, strFilePath)
         Dim  strName2  As   String   =  System.IO.Path.Combine(strPath2, strFilePath)

Dim  dir1  As   String   =  System.IO.Path.GetDirectoryName(strName1)
         If  System.IO.Directory.Exists(dir1)  =   False   Then
            System.IO.Directory.CreateDirectory(dir1)
         End   If

Dim  dir2  As   String   =  System.IO.Path.GetDirectoryName(strName2)
         If  System.IO.Directory.Exists(dir2)  =   False   Then
            System.IO.Directory.CreateDirectory(dir2)
         End   If

System.IO.File.Copy(strName1, strName2,  True )

End Sub
     Public   Sub  CopyFile( ByVal  strFileName  As   String ,  ByVal  strNewPath  As   String )
        System.IO.File.Copy(strFileName, System.IO.Path.Combine(strNewPath, System.IO.Path.GetFileName(strFileName)),  True )
     End Sub