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的文件..

买了个新电脑,系统是VISTA HOME BASIC,我抱着先试用下的心态,在上面装了VC6.0,QTP9.0,LR8.2,

VC没让我装完就提示不兼容,QTP和LR还蛮给我面子,装的过程中都表现不错,等我搭完JAVA的环境,在录脚本的时候发现QTP报错(浏览器不能启动,URL不对),边报错还边自动帮我把网页打开了,就是啥都不能识别,跟个傻子一样...今天上班来论坛一看,还有人跟我情况一样,也有解决的办法,心里松了一口气..

不过那个LR就没那么幸运了,一直弹出一个什么Action为0的提示框,打开录制网站后也检测不到EVENT,我还没找到问题和原因和解决方法,可能是软件的兼容问题,晚上回去先解决QTP再说,一个一个来...