最後に保存したファイル名を数値で確認する方法

Question

Excelで.iniファイルを作成して保存しています。ファイルは、ファイルが作成されるたびに1ずつインクリメントする特定の命名規則に従う必要があります。すべてのファイルがExcelで作成されるわけではなく、別のプログラムで作成されるファイルもあります。フォルダ内に保存されているファイルを読み込んで、次の番号を知る方法はありますか？

たとえば、exampleFile1.iniからexampleFile63.iniまでのファイルがあります。 ExcelからVBAまたは他の手段を使用すると、exampleFile63.iniが最後のファイルであり、次のexampleFile64.iniの名前がわかりますか？

ありがとうございます。私はそれが明らかでないならば、とても新しいです。

Answer 1

この機能は利用可能な次の.INIファイル名を返します。

Private Function GetNextFile() As String 
    Dim i As Long 
    Dim fileName As String 

    For i = 1 To 1000 
     ' Update Path and File Name prefix below to where your .INI files will be stored. 
     fileName = "d:\path\exampleFile" & i & ".ini" 

     If Dir(fileName) = "" Then 
      GetNextFile = fileName 
      Exit Function 
     End If 
    Next 
End Function 

はこのようにそれを呼び出します。

Dim NextIniFile As String 
NextIniFile = GetNextFile()