zoukankan      html  css  js  c++  java
  • vs2010宏

    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

  • 相关阅读:
    成功率最高的发送邮件代码
    更改ReSharper的智能提示
    [转]SQL 2000 Insert返回自动编号id三种方法比较
    得到汉字的拼音首字母
    不能正确显示UltraWebGrid的解决方法.
    [转]asp.net使用json
    [转] 技术是一种加速器 但重要的不是技术
    [原]模仿Google首页的PNG动画效果
    一个通过DataSet操作XML的类
    C# partial 关键字详解
  • 原文地址:https://www.cnblogs.com/shikyoh/p/2128779.html
Copyright © 2011-2022 走看看