指定フォルダの最終更新ファイル名を返す 

指定フォルダの最終更新ファイルを返す

これね。

'#説明:指定されたフォルダの最終更新ファイル名を返す
'#引数:argDirPath:フォルダパス
'#戻値:最終更新ファイル名
Function latestFile(argDirPath As String)
    Dim currentFileName As String: currentFileName = Dir(argDirPath & "\*.*")
    Dim fileTime As Date
    Dim latestTime As Date
    Dim latestFileName As String
    
    Do While currentFileName <> ""
        'フォルダ&ファイル名書き出し
        fileTime = FileDateTime(argDirPath & "\" & currentFileName) '取得したファイルの日時を取得
    
        If fileTime > latestTime Then
            '次の比較用
            latestTime = fileTime
            '戻り値用
            latestFileName = currentFileName
        
        End If
        '次のファイル名を取り出す(なければブランク)
        currentFileName = Dir()
    Loop
    
    latestFile = latestFileName
End Function


コメント