Question

PixPath is the full path to a folder of jpg’s, and I’m using code like the following to process each jpg.

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

      <process this jpg>

   End If
Loop

This works fine except the files are returned in alpha-numeric order, and not the order that the files are shown listed in the folder. Is there any way around this?

Answer 1

You can’t do this with Dir.

An alternative is to:

• Use FileSystemObject to access all the files in your directory
• Read in all the .jpg files into an array X
• Use Val to compare the .jpgs by value to sort in a numeric ascending order

• The final array X contains the sorted files

  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
  

  See here for more info on using FileSystemObject.