主题：ListView1

 循环生成不就好了？http://www.foxtable.com/webhelp/scr/2775.htm

 

 

你要遍历所有文件？

 

内部函数 listfile

 

Dim pth As String = args(0)
Dim nms As List(of String) = args(1)
For Each fl As String In filesys.GetFiles(pth)
    nms.add(fl)
Next
For Each dr As String In FileSys.GetDirectories(pth)
    Functions.Execute("listfile",dr, nms)
Next

调用函数：
dim nms As New List(of string)
Functions.Execute("listfile","c:\data",nms)

 

 参考5楼。

你窗口pictureviewer的【存放目录】属性，也要填写。