摘要:
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("\") ... 阅读全文