说明: 用法: Public Const AppName As String = "程序名" Public Const CopyExe As String = "FastCopy" Public Sub ExeRefresh() 'Dim LocalAppNamePath As String Dim LocalAppNameDate As String Dim LocalCopyNameDate As String Dim NetAppNameDat e As String On Error Resu <ljr_aa> 上传 | 大小:10kb