|
ありがとうございます。
早速試してみました。
できれば、フォルダの更新日時の情報は取れるのですか?
質問ばかりで申し訳ありませんが・・・。
▼こうちゃん さん:
>▼チェリー さん:
>>あるフォルダ内のフォルダの数とフォルダの名前を取得するにはどうすればいいのですか?教えてください。
>
>ファイルシステムオブジェクトを使ってみました。
>標準モジュールに貼り付けてお試しください。
>
>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
> Next
>
> Set fso = Nothing
>
>End Sub
|
|