tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re^2: FileSystemObjectについて
投稿日： 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:\フォルダ１")
    
    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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。