请给出一个VB按要求列出所有符合要求文件的代码!

来源:百度知道 编辑:UC知道 时间:2024/06/16 02:15:43
Form1中实现以下功能:
由用户单击“浏览”选择一个目录(能够显示在一个框中),然后单击Command1使得该目录及其子目录下所有文件(即使是隐藏文件)凡满足扩展名为.exe、.dll且大小小于80KB且创建日期距当前时间不超过48小时的都列举在ListView中,要求每行显示一个文件且包括完整路径和文件名。

请尽量使用IF等语句。谢谢!
上面的回答没有给出子目录下符合要求的文件!!!

'在窗体上放四个控件:DriveListBox DirListBox ListView commandbutton
Dim fso, fd

Private Sub Command1_Click()
ListView1.ListItems.Clear
scan Dir1.Path
ListView1.Refresh
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()
Set fso = CreateObject("scripting.filesystemobject")
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "文件名及文件路径"
ListView1.ColumnHeaders(1).Width = ListView1.Width
End Sub

Sub scan(folder)
On Error Resume Next
Set fd = fso.getfolder(folder)
For Each f In fd.Files
'这里判断是否是24小时内建立的,是否小于80k,后缀是否是.exe/.dll
If DateDiff("h", f.DateCreated, Now) < 24 And f.Size / 1024 < 80 Then
If fso.GetExtensionName(f.Path) = "exe" Or fso.GetExtensionName(f.Path) = "dll" Then ListView1.ListItems.Add , , CStr(