Vba 使用Dir按文件系统顺序从文件夹返回文件_Vba

Vba 使用Dir按文件系统顺序从文件夹返回文件

vba

Vba 使用Dir按文件系统顺序从文件夹返回文件,vba,Vba,PixPath是指向jpg文件夹的完整路径，我使用如下代码来处理每个jpg fileName = Dir(PixPath) Do Until fileName = "" If Right$(fileName, 4) = ".jpg" Then fileName = Dir() <process this jpg> End If Loop fileName=Dir（PixPath）直到fileName=“”为止如果右$（文件名，4）=

PixPath是指向jpg文件夹的完整路径，我使用如下代码来处理每个jpg

fileName = Dir(PixPath)
Do Until fileName = ""
   If Right$(fileName, 4) = ".jpg" Then   
      fileName = Dir()

      <process this jpg>

   End If
Loop

fileName=Dir（PixPath）
直到fileName=“”为止
如果右$（文件名，4）=“.jpg”，则
fileName=Dir（）
如果结束
环

除了文件以字母数字顺序返回，而不是以文件在文件夹中列出的顺序返回外，此操作正常。有什么办法可以解决这个问题吗？

你不能用

Dir

来解决这个问题

另一种选择是：

使用
```
FileSystemObject
```
访问目录中的所有文件
将所有
```
.jpg
```
文件读入数组X
使用
```
Val
```
按值比较
```
.jpg
```
s，以数字升序排序

最后一个数组X包含已排序的文件

Sub Test()
Dim objFSO As Object
Dim objFolder As Object
Dim objFiles As Object
Dim objFile As Object
Dim X
Dim lngFileCnt As Long
Dim lngCnt As Long
Dim i As Long
Dim j As Long
Dim strBuffer1 As String
Dim strFolder As String

Set objFSO = CreateObject("Scripting.fileSystemObject")
strFolder = "C:\temp"
Set objFolder = objFSO.getFolder(strFolder)
Set objFiles = objFolder.Files
lngFileCnt = objFiles.Count
ReDim X(1 To lngFileCnt)

'grab all jpg files        
For Each objFile In objFiles
    If Right$(objFile.Name, 3) = "jpg" Then
        lngCnt = lngCnt + 1
        X(lngCnt) = objFile.Name
    End If
Next

'resize array to number of jpg files
ReDim Preserve X(1 To lngCnt)

'sort array by numeric value
For i = 1 To lngCnt
    For j = (i + 1) To lngCnt
        If Val(X(i)) > Val(X(j)) Then
            strBuffer1 = X(j)
            X(j) = X(i)
            X(i) = strBuffer1
        End If
    Next
Next
MsgBox Join(X, ";")
End Sub

有关使用

FileSystemObject

的更多信息，请参阅

 =ROW() & ".jpg"

 1.jpg
 2.jpg
 3.jpg
 …
 …
 1000.jpg

Range("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=6, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal