fso.FileExists method and joker char * 1

[Targol]

I had the (bad) surprise to see that the fso.fileExists method doesn't allow joker chars like "*".
ie :

fso.FileExists("c:\windows\System32\*.dll")

returns "false" even if "c:\windows\System32\" folder is full of dlls.
Does anyone know how to achieve this in an HTML included VBS ?

Any help would be apreciated. Water is not bad as long as it stays out human body ;-)

 

[Tarwn]

How about something like this?
Warning: On the fly and probably only conceptual rather than executable

Function checkForExtension(folderName, ext)
   Dim fso, fol, fil
   Dim cnt

   Set fso = Server.CreateObject("Scripting.FileSystemObject")
   Set fol = fso.getFolder(folderName)
   For each fil in fol
      if(right(fil.name,len(ext)) = ext) cnt = cnt + 1
   Next
   checkForExtension = cnt

   Set fol = Nothing
   Set fso = Nothing
End Function

That would return the number of files meeting a specifed extension in a specified directory, or 0 if none were matched. You could also set this up to return an array of matching filenames, and just do a UBound on the returned array to see if it has any contents.

-Tarwn --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---

http://www.tuxedo.org/~esr/faqs/smart-questions.html

 

[Targol]

Well, Tarwn, I think this'll do the stuff (may be not very optimized but I don't need to run it many times so that'll be good)
I give you a star for having search for me !!! Water is not bad as long as it stays out human body ;-)

 

[Tarwn]

Heres a much better one, I didn't think of full wildcard searching otherwise I might have written it myself

http://cwashington.netreach.net/depo/view.asp?Index=701&ScriptType=vbscript

It uses regular expressions to test the file names and lets you use * or ? as valid wildcards anywhere in the string.

Wish I had thought to do actual wildcards instead of just extensions ah well, drink more coffee, write more code...

-Tarwn --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---

http://www.tuxedo.org/~esr/faqs/smart-questions.html