Caption = "Example: Find all files in and under the WINDOWS directory, that's second character is 'B' and the file extension is 'DLL'. Type in the text box: C:\WINDOWS\?B*.DLL"
Height = 948
Left = 3084
TabIndex = 6
Top = 1944
Width = 3240
End
Begin Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "This program demonstrates ZipServer's fast file search routines provided by calls to the ZipServ.DLL. The Visual Basic source code is included in the ZipServer Development Kit. In order to obtain a trial version of the Development Kit download first the ZipServer from Compuserve and than contact Redei Enterprises by E-Mail (71744,3633). The development kit includes functions for Zipping and Unzipping, multivolume archiving from your own code. Click 'Info' to learn more about ordering and products."
ForeColor = &H00FF0000&
Height = 1416
Left = 84
TabIndex = 3
Top = 36
Width = 6252
End
Sub Command1_Click ()
Dim found%, i%
List1.Clear
List1.Visible = False
Mousepointer = 11
If Text1 > "" Then
found% = SearchFor(Text1, True, True)
If found% > 0 Then
For i% = 1 To found%
List1.AddItem FoundInSearch(i%)
Next
End If
End If
Mousepointer = 0
List1.Visible = True
If List1.ListCount > 0 Then
Command3.Enabled = True
Else
Command3.Enabled = False
End If
End Sub
Sub Command2_Click ()
Dim y As Integer, Orders As String
Orders = App.Path
If Right$(App.Path, 1) <> "\" Then
Orders = Orders + "\"
End If
Orders = Orders + "ORDER.WRI"
y = Shell("Write " + Orders, 1)
End Sub
Sub Command3_Click ()
Dim a$, w%, i%
a$ = InputBox$("Please enter the name and path of the text file for the report", "Print Search Report")
If a$ > "" Then
p$ = ExtractPath(a$)
If Len(p$) > 3 And Right$(p$, 1) = "\" Then
p$ = Left$(p$, Len(p$) - 1)
End If
If Dir$(p$, 16) > "" Then
If ExtractBase(a$) > "" Then
File$ = ExtractFile(a$)
If InStr(File$, ".") = 0 Then
File$ = File$ + ".TXT"
ElseIf Not InStr(File$, ".") = 0 And Len(File$) = InStr(File$, ".") Then
(.txt)