Searching Files 1

[zzfive03]

Good Morning.

I have a subroutine that connects to a virtural drive, and searches for .txt files. When It finds one, it will print it out on the page. The problme is the subroutine takes forever because it is sorting thru all kinds of other files. Is there a built in funciton (or just a more effecent way) to search for .txt (or *.anything). Here is my current procedure for doing this task:

For Each objFile in objSubFolder.Files
FExtBegPos = InStrRev(objFile.Name, ".&quot
FExtTotal = len(objFile.Name)
FExt = Right(objFile.Name, FExtTotal - FExtBegPos)
If FExt = "FSZ" or FExt = "fsz" Then
do something
End If

Thanks for any adivce.

 

[JohnYingling]

Observation. Properties that are used more than once should be extracted first. You call objFile.Name three times.

Dim strFileName as string
For Each objFile in objSubFolder.Files
     strFileName = Lcase$(objFile.Name)
     if strFileName like "*.fsz" then
         do something
     End If
Next

BTW. There is a FSO method for getting the extension
"GetExtensionName Method
Description
Returns a string containing the extension name for the last component in a path.
Syntax
object.GetExtensionName(path)"

http://www.VBCompare.com

http://www.VBSortGen.com

 

[JohnYingling]

Oops. VBScript

Dim strFileName 
For Each objFile in objSubFolder.Files
     strFileName = Lcase(objFile.Name)
     if strFileName like "*.fsz" then
         do something
     End If
Next

http://www.VBCompare.com

http://www.VBSortGen.com

 

[zzfive03]

thanks..

hum..I get this..

Microsoft VBScript runtime error '800a0023'
Sub or Function not defined
/fsz/default.asp, line 24

Here is my Line 24:
If strFileName Like "*.fsz" Then

 

[JohnYingling]

Well shoot. There is not a like operator in VBScript.

For Each objFile in objSubFolder.Files
     strFileName = Lcase(objFile.Name)
     'Assuming FS is the FileSystemObject
     if Lcase(fs.GetExtensionName(strFileName)) = "fsz" then
         do something
     End If
Next

http://www.VBCompare.com

http://www.VBSortGen.com

 

[zzfive03]

Works great.. thank you

 

[JohnYingling]

Just to keep the number of FSO calls down.

For Each objFile in objSubFolder.Files
     strFileName = Lcase(objFile.Name)
     if 0 < Instr(1,strFileName,&quot;.fsz&quot;) then
         do something
     End If
Next

http://www.VBCompare.com

http://www.VBSortGen.com