显示在网页中:
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("D:\")
Set fc = f.Files
'显示文件列表
For Each f1 in fc
response.write f1.name
next
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("D:\")
Set fc = f.Files
'显示文件列表
For Each f1 in fc
response.write f1.name
next
另外ListView如何方便?
返回或设置一个值,此值决定 ListView 控件中的 ListItem 对象如何排序。语法object.SortKey [= integer]SortKey 属性的语法包含下面部分:部分 描述
object 对象表达式,其值是 ListView 控件。
integer 指定排序关键字的整数,如“设置值”中所描述。
设置值integer 的设置值为:设置值 描述
0 使用 ListItem 对象的 Text 属性排序。
> 1 使用子项目排序,子项目的集合索引在此指定。
说明:在改变发生前,Sorted 属性必须设置为 True。通常希望单击列标头时将列表排序。所以,ColumnClick 事件通常包括 SortKey 属性并使用单击的列将列表排序,下面的示例演示了这一点:Private Sub ListView1_ColumnClick (ByVal ColumnHeader as ColumnHeader)
ListView1.SortKey=ColumnHeader.Index-1
End Sub