我的代码中不断出现此函数错误。
Function Recurse(oFldr)
If IsAccessible(oFldr.GetFolder(sSearchRoot)) Then
For Each oSubFolder In oFldr.SubFolders
Recurse oSubFolder
'For Each oFile In oFldr.Files
For Each oFile In oFldr.Files
If LCase(oFSO.GetExtensionName(oFile)) = "txt" Then
ContentSearchTxt(oFile)
End If
If LCase(oFSO.GetExtensionName(oFile)) = "doc" Or "docx" Then
ContentSearchWord(oFile)
End If
If LCase(oFSO.GetExtensionName(oFile)) = "xls" Or "xlsx" Then
ContentSearchExcel(oFile)
End If
Next
Next
End If
End Function
该错误似乎是我第一次抛出的if statement
:
If IsAccessible(oFldr.GetFolder(sSearchRoot)) Then
我真的对使用VBS感到陌生,并且想知道是否有人能够将我推向正确的方向?
.GetFolder是FileSystemObject的方法。所以改变
If IsAccessible(oFldr.GetFolder(sSearchRoot)) Then
到
If IsAccessible(oFSO.GetFolder(sSearchRoot)) Then
oFSO的定义如下
Set oFSO = CreateObject("Scripting.FileSystemObject")
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句