tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルFileSystemObjectについて
記事No11278
投稿日: 2008/01/29(Tue) 19:32
投稿者カビゴン
お疲れ様です。
FileSystemObjectにて取得できるファイル数とフォルダ数は、
指定されたフォルダ直下しか取得できないのでしょうか?

フォルダのプロパティで表示されるファイル数とフォルダ数を取得したいのですが、
指定したフォルダ直下の値しか取れません。
何かいい方法等ありましたらご教授お願いします。

[ツリー表示へ]
タイトルRe: FileSystemObjectについて
記事No11279
投稿日: 2008/01/29(Tue) 19:51
投稿者
こちらのHPの内容をよく検索してみるといいですよ。
特にFileSystemObjectの辺りとか…

[ツリー表示へ]
タイトルRe^2: FileSystemObjectについて
記事No11280
投稿日: 2008/01/30(Wed) 09:59
投稿者カビゴン
お返事ありがとうございます。
> こちらのHPの内容をよく検索してみるといいですよ。
> 特にFileSystemObjectの辺りとか…

拝見して以下のソースで実行した際に、フォルダサイズは全データ取るんですが、
ファイル数とフォルダ数が直下の値しか拾わないんで困ってます。
書き方が悪いのか、こういうものなのかが不明でして……。

Private Sub Command1_Click()
    
    Dim objFSO As New Scripting.FileSystemObject
    Dim objFolder As Scripting.Folder
    
    Set objFolder = objFSO.GetFolder("C:\フォルダ1")
    
    With objFolder
        Debug.Print " "
        Debug.Print "DateCreated:" & .DateCreated
        Debug.Print "DateLastAccessed:" & .DateLastAccessed
        Debug.Print "DateLastModified:" & .DateLastModified
        Debug.Print "Files.Count:" & .Files.Count
        Debug.Print "Size:" & .Size
        Debug.Print "SubFolders.Count:" & .SubFolders.Count
    End With

End Sub

[ツリー表示へ]
タイトルRe^3: FileSystemObjectについて
記事No11285
投稿日: 2008/01/30(Wed) 11:09
投稿者
> 拝見して以下のソースで実行した際に、フォルダサイズは全データ取るんですが、
> ファイル数とフォルダ数が直下の値しか拾わないんで困ってます。

 指定フォルダ以下の全サブフォルダを列挙
 http://hanatyan.sakura.ne.jp/vbhlp/FSO09.htm

これをちょこっと改造して
各サブフォルダ内にあるファイル数と
フォルダ数を足していけばOKかな?

[ツリー表示へ]
タイトルRe^4: FileSystemObjectについて
記事No11293
投稿日: 2008/01/30(Wed) 13:40
投稿者カビゴン
>
>  指定フォルダ以下の全サブフォルダを列挙
>  http://hanatyan.sakura.ne.jp/vbhlp/FSO09.htm
>
参考にさせていただいて、どうにかフォルダ数は取得できました!
ファイル数に関してはまだまだ時間がかかりそうですが、
問題の半分が解決できました。ありがとうございます!

それにしても.netだと簡単に出来るみたいなのに……

[ツリー表示へ]