QTP中进入指定文件夹查找文件

Function ShowFolderList(folderspec)
   Dim fso, f, f1, fc, s
   Set fso = CreateObject("scrīpting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set fc = f.Files
   For Each f1 in fc
      s = s & f1.name
      s = s & "<BR>"
   Next
   ShowFolderList = s
End Function

Dim FolderList,FileName
Dim ListTotal
FolderList= ShowFolderList("D:\新建文件夹\新建文件夹")
FileName=Split(FolderList,"<BR>")
For  ListTotal=LBound(FileName) TO UBound(FileName)-1
 MsgBox(FileName(ListTotal))

Next

本来想跟上一篇QTP学习放一起的...主要是进入指定的文件夹中查找文件,可以输出文件夹中的文件名...

文件名的命名规则:

在Windows200X中的文件命名规则是前缀名＋后缀名，中间加一个点。前缀名可以任意命名，而后缀名则表示了文件的格式类型。Windows就是通过文件的后缀名来识别文件的
（1）在文件或文件夹的名字中，最多可使用256个字符。
（2）组成文件名或文件夹的字符可以是英文字母、数字及￥＠＆＋（）、下划线、空格、汉字等。但不能使用下列9个字符：？\ * | “ < > : /在Windows200X中的文件命名规则是前缀名＋后缀名，中间加一个点。前缀名可以任意命名，而后缀名则表示了文件的格式类型。Windows就是通过文件的后缀名来识别文件的
（1）在文件或文件夹的名字中，最多可使用256个字符。
（2）组成文件名或文件夹的字符可以是英文字母、数字及￥＠＆＋（）、下划线、空格、汉字等。但不能使用下列9个字符：？\ * | “ < > : /

如果不用考虑模块化什么的,可以在FUNCTION的FOR中直接将文件名输出,也不用后面的来拆分字符串...更不用考虑要用什么字符串做为中间的拆分标志..

Dim FolderList,FileName
Dim ListTotal
Dim counter
FolderList= ShowFolderList("D:\新建文件夹\新建文件夹")
FileName=Split(FolderList,"<BR>")
For  ListTotal=LBound(FileName) TO UBound(FileName)-1
   ' MsgBox(FileName(ListTotal))
   If(StrComp("calc.txt",FileName(ListTotal))<>True) Then
       counter=1
 End If
Next

 If (counter<>1) Then
  MsgBox("Can't find calc.txt")
  else
  MsgBox("can find")
 End If
查找文件夹中是否有文件名为calc.txt的文件..