【正文】
FolderName= FolderName ShowList() else NovalidResponse End if SearchResponse= % % Sub ShowList() FolderToCheck = (\) amp。/ amp。 FolderName amp。 / Dim fs, f, f1, fc, s Set fs = CreateObject() Set f = (FolderToCheck) Set fc = For Each f1 in fc Wfile = if right(Wfile, 5)=.html OR right(Wfile, 4)=.htm then Wfile2 = FolderToCheck amp。 Wfile Set fs = CreateObject() Set a = (Wfile2) ct = ct2=lcase(ct)