Hard disk File Search code (ASP Class)

<% @LANGUAGE = "VBSCRIPT" codepage= "936"%>
<%
Dim St
St=timer ()
'*************************************************************
' ************* search hard disk files for class Searchfile *************
' ************* Call Method: *************
' *************set newsearch=new searchfile ' statement *************
' *************newsearch. Folder= "F:+e:" ' Incoming search source *************
' *************newsearch.keyword= ' assembly ' keyword *************
' *************newsearch. Search ' Start searching *************
' *************set newsearch=nothing ' end *************
' *************copyright (c) Drunk rain Indus Station *************
' *************http://btyz.51web.cn/************* ' *************************************************************
Class Searchfile
Dim Folders ' Pass in absolute path, multiple paths using + number connection, no spaces
Dim keyword ' incoming keyword
Dim objFSO ' Defines global variables
Dim Counter ' Defines global variables, number of search results
' ***************** initialization **************************************
Private Sub Class_Initialize
Set objfso=server.createobject ("Scripting.FileSystemObject")
Counter=0 ' Initialization counter
End Sub
'************************************************************
Private Sub Class_Terminate
Set objfso=nothing
End Sub
' ************** public members, calling methods ***************************
Function Search
Folders=split (Folders, "+") ' converts to arrays
Keyword=trim (keyword) ' Remove space before and after
If keyword= "" Then
Response.Write ("<font color= ' red ' > keyword cannot be empty </font><br/>")
Exit Function
End If
' Determine if illegal characters are included
FLAG=INSTR (keyword, "") or InStr (keyword, "/")
Flag=flag or InStr (keyword, ":")
Flag=flag or InStr (keyword, "|")