您的位置：程序门 -> vb -> 基础类

怎么样获得文件夹中以zf开头的最新修改文件的文件名?

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

怎么样获得文件夹中以zf开头的最新修改文件的文件名?

发表于：2008-02-21 10:22:16 楼主

怎么样获得文件夹中以zf开头的最新修改文件的文件名?

发表于：2008-02-21 11:06:471楼得分:0

简单用一下fso,你自己可以根据需要调整了
1 引用microsoft scripting runtime对象

2

vbscript code


  private sub command1_click（)
    dim fsosys as new filesystemobject
    dim fsofolder as folder
    dim fsofile as file
    set fsofolder = fsosys.getfolder（"c:\")'换成指定的文件夹
    debug.print fsofolder.path & "下的文件有： "
    for each fsofile in fsofolder.files
        debug.print "文件名称:" &  fsofile.name & " 创建日期:" & fsofile.datelastmodified
 
    next
  end sub 
    
end sub

发表于：2008-02-21 12:55:372楼得分:0

修改一下 aohan 的代码：

vbscript code


private sub command1_click（)
    dim fsosys as new filesystemobject
    dim fsofolder as folder
    dim fsofile as file
    set fsofolder = fsosys.getfolder（"c:\")'换成指定的文件夹
    debug.print fsofolder.path & "下的文件有： "
    for each fsofile in fsofolder.files
      if left（fsofile.name,2)="zf" then
        debug.print "文件名称:" &  fsofile.name & " 创建日期:" & fsofile.datelastmodified
      end if
     next
  end sub 
    
end sub

相关文章

其他资讯

快速检索

分类导航标签a

最新资讯

热门点击