| |
▼kazu さん：
>特定フォルダー内にあるいくつかのファイルの中から最新（更新日時）のファイルを開く
>方法をどなたかお教えください。
このような場合、よく利用されるのはFileSystemObjectでしょう。
以下、特定フォルダ内にあるファイルのファイル名、作成日、更新日時を
イミデティウィンドウに出力するサンプルです。
Sub test()
Dim FolderPath As String
Dim FSO As Object
FolderPath = "C:\"
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each aFiles In FSO.GetFolder(FolderPath).Files
Debug.Print "ファイル名:" & aFiles.Name & _
" 作成日時:" & aFiles.DateCreated & _
" 更新日時:" & aFiles.DateLastAccessed
Next
End Sub
↑のように、更新日時は.DateLastAccessedで取得できますから、
該当ファイルを開けば良いでしょう。
尚、サブフォルダも見る必要がある場合は、サブフォルダを見に行く処理が
必要になります。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
