|
何度も申し訳ありませんでした。
早い返答ありがとうございます。
これで、今日は仕事も終わることができます。
本当にありがとうございます。
▼こうちゃん さん:
>チェリーさん、こんにちは
>
>>できれば、フォルダの更新日時の情報は取れるのですか?
>
>こんな感じです
>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
|
|