VBA 最新のフォルダ取得

VBAで教えて下さい。
指定したフォルダ内に複数のフォルダがあり、その中で更新日時が一番新しい
フォルダを開きです。

フォルダ内の最新のファイルの情報はネットに多数あるのですが
フォルダ内の最新フォルダの場合どのようにコードを書けばいいでしょうか？

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2022/04/15 16:19

こんにちは

最新フォルダの定義は更新日時で良いでしょうか？
フォルダ情報を取得するにはFSO（Scripting.FileSystemObject）が
使い勝手が良いです。

サンプル

Dim fso As Object, folder As Object, fl As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("親フォルダパス\") ' フォルダを取得

Dim folderName As String
Dim d As Date
For Each fl In folder.SubFolders ' サブフォルダ
If d >= fl.DateLastModified Then
d = fl.DateLastModified
Else
folderName = fl.Name
End If
Next
Debug.Print folderName


親フォルダパス\　は親フォルダのパス　最後に\を忘れずに

DateLastModified は更新日時
DateLastAccessed とすればアクセス日時を取得できます

この回答へのお礼

ありがとうございます。
非常に助かりました。

お礼日時：2022/04/15 16:36