Finding a file using a wildcard 2

[CatManDave]

I am working on a company Intranet and I need to be able to retrieve a file name, which is a *.htm file, for display using VBScript.

I will have the entire directory path, but will not know the exact name of the htm file within that directory to display. In VB, one can use the "Dir" function to retrieve file names using wildcards, but there is no such function when using VBScript???

Appreciate any help offered,
Dave McReynolds

 

[JohnYingling]

Function GetWildFile(strFolder, strWild) 
Dim objfs 
Dim objFolder
dim objFiles
Dim objFile
Dim strDesc
Set objfs = Server.CreateObject("Scripting.FileSystemObject")
On error resume next ' Intercept No Folder
    Set objFolder = objFS.GetFolder(strFolder)
    if Err.Number <> 0 then strDesc = Err.Description
On error goto 0
If Len(strDesc) = 0 then
     Set objFiles = objFolder.Files
     For Each objFile in ObjFiles
         if objFile.Name Like strWild then
             GetWildFile = objFile.Name
             Exit For
         End if
    Next
End if

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[CatManDave]

Dude,
I never thought a reply would be so quick in coming. I will use your function.

Thanks again and I gave you a star,
Dave

 

[FengShui1998]

CatmanDave & John,

I noticed in your code you have:

"if objFile.Name Like strWild then"

Is "Like" a VBScript comparison method? I couldn't find that unless it's undocumented or new.

You might use:

If instr(1,objFile.Name, strWild, 1) > 0 then


fengshui_1998

 

[CatManDave]

fengshui_1998,
You were right although it worked without the second "1" parameter: If instr(1,objFile.Name, strWild) > 0 then

Thanks fengshui and John for your help,
Dave

 

[FengShui1998]

catmandave,

The second one "1", I believe, ignores upper or lower case.

fengshui_1998

 

[JohnYingling]

You are right of course. I keep forgetting about LIKE not being there and yes the second 1 ignores case. Good catch on using the Instr.

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript