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(
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
Do While Not TDBG_Dept.EOF
If A> ......
在网上下载了speechsdk51LangPack安装后，用vb可以发音（中文），里面有个girl xiaokun的发音，对中文很好听。但是这个speechsdk51LangPack有100多M，我的vb项目打包后，怎么才可以装到其他机子上也能用？？总不能每 ......
