用法:PublicConstAppNameAsString="程序名"PublicConstCopyExeAsString="FastCopy"PublicSubExeRefresh()'DimLocalAppNamePathAsStringDimLocalAppNameDateAsStringDimLocalCopyNameDateAsStringDimNetAppNameDateAsStringOnErrorResumeNextIfLen(App.Path)>