请问vb中如何枚举一个目录下的文件名

Question

我想做一个图片展示程序，请问打开选定一个目录后如何得到下面所有的图片文件，能实现查看上一张、下一张、首张、尾张的功能

Answer 1

用 FileListBox 不就可以了吗？

Answer 2

http://community.csdn.net/Expert/topic/3559/3559122.xml?temp=.3543207

Answer 3

使用 DIR' 显示 C:\ 目录下的名称。
MyPath = "c:\"   ' 指定路径。
MyName = Dir(MyPath, vbDirectory)   ' 找寻第一项。
Do While MyName <> ""   ' 开始循环。
   ' 跳过当前的目录及上层目录。
   If MyName <> "." And MyName <> ".." Then
      ' 使用位比较来确定 MyName 代表一目录。
      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
         Debug.Print MyName   ' 如果它是一个目录，将其名称显示出来。
      End If
   End If
   MyName = Dir   ' 查找下一个目录。
Loop

Answer 4

//能实现查看上一张、下一张、首张、尾张的功能把上面的代码 读取你指定文件夹下的所有文件后，把他们的文件名放在一个collection里，然后排序，或者放在隐藏的 listbox里， listbox有一个sorted属性 就是 自动排序功能。
然后 上一张就是 index -1 ,下一张就是 index+1，首张就是 index=0 ,最后一张就是 index= list1.count

Answer 5

'前提在工程中引用FSO
    Dim Fso
    Dim Fl
    Dim ObFd
    Dim Fd As String    Set Fso = CreateObject("Scripting.FileSystemObject")
    If Fso.FolderExists(App.Path + "\浏览图片") Then
    Else
        Fso.CreateFolder App.Path + "\浏览图片\"
    End If
    Fd = App.Path + "\浏览图片"    Set ObFd = Fso.GetFolder(Fd)
'    ReDim BmpArr(UBound(ObFd.Files))
    step = 1
    For Each Fl In ObFd.Files
      If Format(Right(Fl.Name, 4), "<") = ".jpeg" Or Format(Right(Fl.Name, 4), "<") = ".jpg" Then
        ReDim Preserve BmpArr(step)
        BmpArr(step) = App.Path + "\浏览图片\" + Fl.Name
        step = step + 1
      End If
    Next实现的功能是把JPEG和JPG格式的所有完整路径名读到数组中.我曾用这种方式建立过动态菜单,往程序中外接补丁.(具体方法,只要将扩展名换成EXE就行.)