摘要: Private ErrMsg As String Private SucessMsg As String 'Udi 2012年9月20日 Sub CopyFileToPath() SucessMsg = "" ErrMsg = "" Dim strDesc As String Dim strFileName As String Dim strSrc As String Dim solutionPathArray = DTE.Solution.FullName.Split("\") ... 阅读全文
posted @ 2011-07-31 22:56 NewSea 阅读(608) 评论(5) 推荐(0) 编辑