wkl1237的专栏

Public Function WriteFile(ByVal strFileName As String, colWri As Collection, Optional bOverLay As Boolean = False, Optional bMarkSeq As Boolean = False) As Boolean          Dim FN     Dim v     Di

Public Function NewDir(ByVal strPath) As Boolean          Dim dirAttr As VbFileAttribute          dirAttr = vbNormal + vbDirectory + vbReadOnly     If Dir(strPath, dirAttr)         NewDir = Tru