关于文件列表框控件的问题
在vb的文件列表框控件中又没有这样的属性，可以统计到一个文件夹中所有文件的名字，包括扩展名。我的意思是：不是在文件夹中cilk文件的那种形式。而是在一个文件夹的同时统计出该文件夹中所有的文件的数量和属性？ 问题点数：0、回复次数：9Top
1 楼cuizm（射天狼 http://www.j2soft.cn/）回复于 2003-09-02 12:34:49 得分 0
没有现成的,必须自己写~~Top
2 楼cuizm（射天狼 http://www.j2soft.cn/）回复于 2003-09-02 12:35:32 得分 0
文件数量等于 File1.ListCount
你还需要什么属性!?
Top
3 楼cuizm（射天狼 http://www.j2soft.cn/）回复于 2003-09-02 12:36:14 得分 0
返回一个 Variant (Date)，此为一个文件被创建或最后修改后的日期和时间。
语法
FileDateTime(pathname)
必要的 pathname 参数是用来指定一个文件名的字符串表达式。pathname 可以包含目录或文件夹、以及驱动器。Top
4 楼liul17（溜溜）回复于 2003-09-02 13:26:26 得分 0
粘入下面代码看看是这个意思吗 没用FileList控件
Option Explicit
Private Sub Command1_Click()
Dim s As String
Dir "c:\"
s = Dir()
Do While s <> ""
Debug.Print s
s = Dir()
Loop
End Sub
Top
5 楼liul17（溜溜）回复于 2003-09-02 13:27:33 得分 0
若要统计出数量及属性可以使用 filesystem 对象
Top
6 楼liul17（溜溜）回复于 2003-09-02 13:31:20 得分 0
画个窗体 ( DriveListBox DirListbox filelistbox commandbutton(3个 cmdOk cmdCancel cmdSelectAll )
Option Explicit
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOk_Click()
Dim i As Long
Dim sFiles As String
Dim sRela As String
Dim fs As New FileSystemObject
Dim objFile As File
Dim objFolder As Folder
Set objFolder = fs.GetFolder(Dir1.Path)
ReDim uCompanys(File1.ListCount * 2)
'所有选中的文件读入数组
i = 0
For Each objFile In objFolder.Files
'暂存在数组中
uCompanys(i).sName = objFile.Name
uCompanys(i).dDateLastModify = objFile.DateLastModified
i = i + 1
Next
End Sub
Private Sub cmdSelectAll_Click()
Dim i As Long
For i = 0 To File1.ListCount - 1
File1.Selected(i) = True
Next
End Sub
Private Sub Dir1_change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i As Long
If Shift = 2 Then
If KeyCode = Asc("a") Or KeyCode = Asc("A") Then
For i = 0 To File1.ListCount - 1
File1.Selected(i) = True
Next
End If
End If
End Sub
Top
7 楼kenshin520（kenshin520）回复于 2003-09-03 12:02:38 得分 0
我运行了liul17(liul)的程序，但是报错
就是Dim fs As New FileSystemObject的错误，请问是什么原因？Top
8 楼liul17（溜溜）回复于 2003-09-03 13:08:43 得分 0
在你的工程中加入 microsoft Scripting Runtime 引用
工程->引用 勾上即可Top
9 楼changechange（http://access911.net 是我的个人网站，欢迎光临）回复于 2003-09-03 13:24:02 得分 0
用
dim fs
set fs=createobject("script.filesystemobject")
Top
