vb中怎样查看一个文件夹下面的文件个数

vb中怎样查看一个文件夹下面的文件个数 ,并且要取出这里面最后一个文件更新的时间,主要是用来查看这个文件夹是否有更新.有完整的模块更好哈.谢谢

---

说错了,不是查个数.是取文件夹里面的文件名

---

File1里就是文件名,用for循环得到所有的

---

直接取目录的时间即可
VB code:
FileDateTime("C:\Windows")

---

文件更新的时间 举例
fname="d:\www\a.txt"
print FileDateTime(fname) '获得详细的修改时间
print format(FileDateTime(fname), "YYYY-MM-DD") '获得修改日期

---

收藏的一个代码：

Public Function TreeSearch(ByVal sPath As String, ByVal sFileSpec As String, sFiles() As String) As Long
'获取某目录下的所有文件名,存放于sFiles()中

Static es As Long '文件数目
Dim sDir    As String
Dim sSubDirs() As String '‘存放子目录名称
Dim ex As Long
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
sDir = Dir(sPath & sFileSpec)


'获得当前目录下文件名和数目
Do While Len(sDir)
es = es + 1
ReDim Preserve sFiles(1 To es)
sFiles(es) = sDir
'sFiles(es) = sPath & sDir
sDir = Dir
Loop

'获得当前目录下的子目录名称
ex = 0
sDir = Dir(sPath & "*.*", 16)
Do While Len(