摘要:
Function CreateMultiFolder(ByVal CFolder) '使用方法call CreateMultiFolder(flodern) Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder Dim i, ii, 阅读全文
摘要:
Public Function ForMatDate(DateAndTime, Para) '格式化日期(日期时间,格式) Dim Y, M, D, H, F, S IF Not ISNumeric(Para) Or Not ISDate(DateAndTime) Then Exit Functio... 阅读全文