这是一个使用递归方法收集目录以及子目录文件的代码Private Sub sosuofile(MyPath As String)On Error Resume NextDim Myname As StringDim dir_i() As StringDim i, idir As LongDim p1 As Integer, p2 As Integer, p3 As Integer, p4 As IntegerIf Right(MyPath, 1)"\" Then MyPath = MyPath + "\"Myname = Dir(MyPath, vbDirectory Or vbHidden Or vb...
|