FSO - Simple Problem

[amorous]

Hi all,

I use the following loop to display all the links to the files matching the search string entered by the user.

*******************************
Dim objFile

For Each objFile in objFolder.Files
'Print out the name

If InStr(1, objFile, strSearch, 1) Then

Response.Write &quot;<L1><A HREF=&quot;&quot;

http://myweb/documents/advance_dire...ot;&quot;>&quot;&objFile&&quot;</A><BR>&quot;

'Response.Write objFile.Name & &quot;<BR>&quot;
End If
Next

***************************

It works perfect, But i want to display a message when there is no match saying &quot;No records were found&quot;
I am not sure how to do that.

Any Suggestions.

VJ

 

[SarkMan]

you could use a counter like so

*******************************
Dim objFile
dim iCounter
iCounter=0

For Each objFile in objFolder.Files
'Print out the name

If InStr(1, objFile, strSearch, 1) Then
iCounter=iCounter+1
Response.Write &quot;<L1><A HREF=&quot;&quot;

http://myweb/documents/advance_directives/files/&quot;&...;

'Response.Write objFile.Name & &quot;<BR>&quot;
End If
Next

if iCounter=0 then response.write &quot;No records were found&quot;
***************************

 

[shaddow]

Dim objFile
    found=false
    For Each objFile in objFolder.Files
     'Print out the name
     
     If InStr(1, objFile, strSearch, 1) Then
     found=true
     Response.Write &quot;<L1><A HREF=&quot;&quot;[URL unfurl="true"]http://myweb/documents/advance_directives/files/&quot;&...;[/URL]

     'Response.Write objFile.Name & &quot;<BR>&quot;
     End If
     if not found then Response.Write &quot;No files found&quot;
Next


________
George, M

 

[amorous]

Thanks a lot SarkMan,

your code worked perfectly fine. I was trying the way given by &quot;Shaddow&quot; and could not understand the strange behavior of Instr function.

thanks again.
VJ