| |
▼禰宜 さん：
>▼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で取得できますから、
>該当ファイルを開けば良いでしょう。
>
>尚、サブフォルダも見る必要がある場合は、サブフォルダを見に行く処理が
>必要になります。
ありがとうございます。
早速行ってみました。
動作します。使用させていただきます。
|
|
kazu
- 04/9/12(日) 0:42 -
