【サンプル付き】指定フォルダーから最新フォルダーを自動抽出

2023 5/01

2023年5月1日 2023年5月1日

下記図のように指定フォルダーの下にあるサブフォルダーから最新のサブフォルダーパスを抽出する方法を紹介します。

フォルダー名ではなく最新更新日時で抽出したいときに便利だよ！
コピペして使ってね！

指定フォルダーから最新フォルダーを自動抽出サンプル

任意のフォルダー下の最新のサブフォルダのパスを抽出したい

今回はファイルシステムオブジェクト(FileSystemObject = FSO)を活用して、フォルダーを選択し、その中にある最新サブフォルダーの最新パスを抽出するサンプルになります。

Sub NewestFolder_PickUp()

    Application.ScreenUpdating = False
    
    Dim Folder_Path As String
    
    MsgBox "最新フォルダパスを自動抽出するよ！フォルダを選択してね( ｰ`дｰ´)"

    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            Folder_Path = .SelectedItems(1)
        Else
            MsgBox "フォルダが正しく選択されなかったので終了します（#^ω^）"
            Exit Sub
        End If
    End With

    Dim FSO As Object, Folder As Object, Fl As Object
    Set FSO = CreateObject("Scripting.FIleSystemObject")
    Set Folder = FSO.GetFolder(Folder_Path)
    
    Dim NewestFolder As String
    Dim MaxTime As Date

    For Each Fl In Folder.SubFolders
        If Fl.DateLastModified > MaxTime Then
            MaxTime = Fl.DateLastModified
            NewestFolder = Fl.PATH
        End If
    Next

    MsgBox "最新フォルダーのPathは " & vbCrLf & NewestFolder & vbCrLf & "です(^o^)"

End Sub

FSOを使用するにはその下準備として「Microsoft Scripting Runtime」への参照設定を行う必要があります。

1.ツールをクリック
2.[参照設定]をクリック
3.参照可能なライブラリファイルから「Microsoft Scripting Runtime」をクリックしチェックマークをつける
4.[OK]をクリック