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(
相关问答：
看了一些VB ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
Do While Not TDBG_Dept.EOF
If A> ......
在网上下载了speechsdk51LangPack安装后，用vb可以发音（中文），里面有个girl xiaokun的发音，对中文很好听。但是这个speechsdk51LangPack有100多M，我的vb项目打包后，怎么才可以装到其他机子上也能用？？总不能每 ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
