主要问题是获得文件列表吧?
可以参照:
http://zhidao.baidu.com/question/8109682.html
这个可以指定扩展名。
他是把文件完整路径的列表显示在listbox里了。你把listbox换成公共数组变量就行。
如果你保证文件夹里都是图片的话,也可以用下面的方法:
[工程]--[引用]里添加“Microsoft Scripting Runtime”。
添加代码:
==============================================
Dim myFiles() As String '存文件名列表的数组
Private Function GetFolderFiles(Path As String) As Integer
'path 文件夹路径
'返回文件夹中文件的个数
'如果要计算子文件夹可以通过 fldr.SubFolders 访问,方法类似
Dim n As Integer, i As Integer, j As Integer
Dim fso As New FileSystemObject
Dim fldr As Folder
Dim fls As Files
Dim fl As File
'读取文件
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder(Path)
Set fls = fldr.Files
n = fls.Count
If n > 0 Then
ReDim myFiles(n - 1)
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余2页未读,立即下载
- 1
- 2
前往页