Help with parsing ASP files 2

[WyldeCarde]

Hi all

I have been tasked with writing an Access database that will search a directory and all sub directories for ASP files, find which SQL stored procedures each fo them runs and output this data.

I think in the ASP files the lines I am searching for will be:

cmdAdmin.CommandText = "%stored_procedure_name%"
cmdAdmin.CommandType = adCmdStoredProc

I would need to output the path of the ASP file it was found in, and what the value of %stored_procedure_name% is, each file likely to contain multiple entries.

Help!

 

[PHV]

Loop
[!]Close #1[/!]
rstread.MoveNext
Wend

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[WyldeCarde]

Thanks a lot both! That's perfect! I shall build a shrine in your' honours and sacrifice a goat.

Actually probably I'll give you both a shiny gold star

 

[WyldeCarde]

This is working really well. I just want to add one more refinement.

When I have the code window open I can see what is running in the "Immediate" pane. I changed what you guys suggested originally to:

Debug.Print "Found - "; .FoundFiles(lngFileIndex)

So it shows me in the pane what it is doing currently. Is there anyway to get this to display in the status bar or something similar, just so people aren't sitting and staring and wondering whether anything is happening?

 

[Remou]

SysCmd will allow you to display information in the status bar.

 

[WyldeCarde]

Thanks for the help Remou, but...

On second thought It would be better if it was something on a form scrolling up exactly like the immediate pane, so people can see more than one result at a time.

 

[Remou]

You can write to a textbox on a form rather than the immediate window.

 

[WyldeCarde]

And how would one do this?

 

[Remou]

How about you rough something up using a form and a textbox and then post your code if you have problems?

 

[WyldeCarde]

Well I had no idea where to start but I've wrestled with the help a bit and got it to update a text box on a form, although it was just writing one result at a time, and not scrolling as I wished.

However even though I was refreshing the form after every field update, once I fire off my code it is locking up the Access window until it gets to the last record and that's the first time the field updates visibly (If I step through the code it will update correctly)

Unless anyone know a way around that I guess I'm a bit stuck?

I was writing it like so:

            Forms!Progress!Progress.Value = CountDocs
            Forms!Progress.Refresh

 

[PHV]

Have a look at the DoEvents function.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[WyldeCarde]

Cool that works fine, I think it runs a tiny fraction slower but I'm not bothered by that.

OK so I now have a text box that displays the last action, how do I make something that scrolls, displaying the last 5 or so actions?