I am working on an ASP page that I hope will create a tree view of a web site. I am using VBS and the FSO. One of the major problems I have at present is a result of the fact that it is a FrontPage Web, and I want the script not to list the _vti_ files and directories, and the *.cnf files. I also want it to hide JPGs and GIFs and show MS Office files. I was starting with vti using test as follows:
<snip>
Sub ShowSubFolders(fol)
dim sfg, f2, Matches, regex
Set f = fso.GetFolder(fol)
Set sfg = f.SubFolders
For Each f2 in sfg
set regex = f2.name ' Create regular expression.
regEx.Pattern = patrn ' Set pattern.
regEx.IgnoreCase = False ' Set case sensitivity.
Matches = regex.test("vti") ' Do not list folders containing "vti"
If Matches < Null Then
Else
Response.Write(f2.name)
Response.Write "<BR>"
ShowSubFolders(fol & "\" & f2.name)
End if
Next
set sfg = nothing
set f = nothing
set Matches = nothing
set regex = nothing
ShowFiles(fol)
Response.Write "<BR>"
End Sub
</snip>
This throws an error saying "Microsoft VBScript runtime error '800a01a8'
Object required: '[string: "catalog.wci"]' ". catalog.wci is the first folder it runs across as it iterates through the file system. I don't get what I am doing wrong. If more of the code is needed, I can provide it.
Thanks,
Ethan Adams
