Dirを使用してファイルシステムの順番でフォルダからファイルを返す

Question

PixPathはjpgのフォルダへの完全なパスです。次のようなコードを使って各jpgを処理しています。

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

     <process this jpg> 

    End If 
Loop 

これは、ファイルが英数字順で返され、ファイルが表示される順にフォルダに表示されていない以外正常に動作します。これを回避する方法はありますか？

Answer 1

Dirとすることはできません。 .jpg Sを比較するために、配列X

使用Valにすべての.jpgファイルにディレクトリ内のすべてのファイル

読むにアクセスするために

• 使用FileSystemObject：

  選択肢がにあります値によって昇順に並べ替えます。

• 最終配列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を使用しての詳細はhereを参照してください。

Answer 2

brettdjからの答えは（お礼をbrettdj）うまく機能し、おそらく私が使用します方法ですが、私も動作し、それが他の状況で利点を提供するかもしれない何かを発見しました。 1つは、Dirを使用してフォルダをループするという極端な単純さを保持していることです。

Excel 11では、Dir（質問に記載）を使用して、各フォルダ（一度に1つのフォルダ）からjpgファイルのリストを作成し、Col Aの英数字でソートします。次に、カスタムリストCol Aを（偽の）数値ソートでソートするので、jpgをシリアル順に処理できます。 Col Aをクリアし、次のフォルダを繰り返します。

カスタムリストを生成するには、次の作業列の行1で

が

=ROW() & ".jpg" 

を入力して、どんなスーツにダウン記入してください。私のケースでは、カスタムリストに1000個のアイテムを使用しました。これは、どのフォルダでもjpgの最大数だからです。

カスタムリストは、カスタムリストとしてインポートする前に、新しく生成された数式リストをテキストに変換する必要があるため、[貼り付け>特殊>値]を使用してテキストに変換する必要があります。リストの各項目は、予想されるファイル名の1つです。

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

私は私の新しいカスタムリスト（[ツール]> [オプション]> [カスタムリスト]> [インポート]）をインポートした後、それがデータ>ソート>オプションのドロップダウンメニューで利用可能な選択になり>まず：最後のカスタムリストは次のようになりますキーのソート順。

あなたは、ここにVBAでこの種をやっている場合はレコーダーが提供するものです：最初の5つのカスタムリストをExcelに組み込まれている

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

、そうOrderCustom：= 6は、新しいカスタムリストです。通常のソートを行う場合は、これをOrderCustom：= Falseに戻してください。カスタムリストは、削除されるまで作成されたWkbに添付されたままです。