Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics
Imports MyCmn
Imports System.Linq
Imports System.IO
Public Module Module1
Private ErrMsg As String
Private SucessMsg As String
Sub Test()
End Sub
Sub CopyFileToPath()
SucessMsg = ""
ErrMsg = ""
Dim strDesc As String
Dim strFileName As String
Dim strSrc As String
Dim solutionPathArray = DTE.Solution.FullName.Split("\")
Dim path = ""
Dim process As System.Diagnostics.Process
For i = 0 To solutionPathArray.Length
If (i = solutionPathArray.Length - 1) Then
Exit For
End If
path = path + solutionPathArray(i) + "\"
Next
'String.Join("\", solutionPathArray.GetSub(1, solutionPathArray.Count() - 1))
strSrc = DTE.ActiveDocument.FullName
strDesc = "D:\NewApp_" + Date.Today.ToShortDateString() + "\" + strSrc.Substring(path.Length)
Try
Dim di = New System.IO.FileInfo(strDesc)
If System.IO.Directory.Exists(di.DirectoryName) = False Then
System.IO.Directory.CreateDirectory(di.DirectoryName)
End If
System.IO.File.Copy(DTE.ActiveDocument.FullName, strDesc, True)
SucessMsg = "Copy成功! [" + strDesc + "]"
Catch ex As System.Exception
ErrMsg = "Copy失败! 目标:[" + strDesc + "]" + vbLf + vbLf + ex.Message
process = New System.Diagnostics.Process()
process.StartInfo = New System.Diagnostics.ProcessStartInfo("explorer.exe")
Dim fi = New FileInfo(strDesc)
process.StartInfo.Arguments = fi.DirectoryName
process.Start()
End Try
End Sub
Sub CopyFileToPathWithMsg()
CopyFileToPath()
If (String.IsNullOrEmpty(SucessMsg) = False) Then
MsgBox(SucessMsg, MsgBoxStyle.OkOnly Or MsgBoxStyle.Information, "成功.")
End If
If (String.IsNullOrEmpty(ErrMsg) = False) Then
MsgBox(ErrMsg, MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical, "出错!!!")
End If
End Sub
End Module
