|
チェリーさん、こんにちは
>できれば、フォルダの更新日時の情報は取れるのですか?
こんな感じです
HELPも確認してみてね。
>>Sub FlderTest()
>>
>> Dim fso As Object
>> Dim sf As Object
>> Dim AruFolder As String
>>
>> AruFolder = "C:\Sample" '実際に調べるフォルダに変更してね
>>
>> Set fso = CreateObject("Scripting.FileSystemObject")
>>
>> MsgBox fso.GetFolder(AruFolder).Subfolders.Count
>>
>> For Each sf In fso.GetFolder(AruFolder).Subfolders
>> MsgBox sf.Name
MsgBox "フォルダ名:" & sf.Name & vbCrLf & _
"作成日時:" & sf.DateCreated & vbCrLf & _
"更新日時:" & sf.DateLastModified
>> Next
>>
>> Set fso = Nothing
>>
>>End Sub
|
|