Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13395 / 13658 ﾂﾘｰ

←次へ　｜　前へ→

▼

【5642】フォルダ情報の取得について チェリー 03/5/23(金) 15:58

【5645】Re:フォルダ情報の取得について こうちゃん 03/5/23(金) 17:16

【5647】Re:フォルダ情報の取得について チェリー 03/5/23(金) 17:22

【5648】一緒に聞いてね＾＾ こうちゃん 03/5/23(金) 17:30

【5649】Re:一緒に聞いてね＾＾ チェリー 03/5/23(金) 17:36


	【5642】フォルダ情報の取得について

チェリー - 03/5/23(金) 15:58 -


	引用なし

	パスワード

あるフォルダ内のフォルダの数とフォルダの名前を取得するにはどうすればいいのですか？教えてください。


	【5645】Re:フォルダ情報の取得について

こうちゃん

- 03/5/23(金) 17:16 -


	引用なし

	パスワード

▼チェリーさん：
>あるフォルダ内のフォルダの数とフォルダの名前を取得するにはどうすればいいのですか？教えてください。

ファイルシステムオブジェクトを使ってみました。
標準モジュールに貼り付けてお試しください。

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


	【5647】Re:フォルダ情報の取得について

チェリー - 03/5/23(金) 17:22 -


	引用なし

	パスワード

ありがとうございます。
早速試してみました。
できれば、フォルダの更新日時の情報は取れるのですか？
質問ばかりで申し訳ありませんが・・・。

▼こうちゃんさん：
>▼チェリーさん：
>>あるフォルダ内のフォルダの数とフォルダの名前を取得するにはどうすればいいのですか？教えてください。
>
>ファイルシステムオブジェクトを使ってみました。
>標準モジュールに貼り付けてお試しください。
>
>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


	【5648】一緒に聞いてね＾＾

こうちゃん

- 03/5/23(金) 17:30 -


	引用なし

	パスワード

チェリーさん、こんにちは

>できれば、フォルダの更新日時の情報は取れるのですか？

こんな感じです
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


	【5649】Re:一緒に聞いてね＾＾

チェリー - 03/5/23(金) 17:36 -


	引用なし

	パスワード

何度も申し訳ありませんでした。
早い返答ありがとうございます。
これで、今日は仕事も終わることができます。
本当にありがとうございます。

▼こうちゃんさん：
>チェリーさん、こんにちは
>
>>できれば、フォルダの更新日時の情報は取れるのですか？
>
>こんな感じです
>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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13395 / 13658 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free