| タイトル | ： Re^2: FileSystemObjectについて |
| 記事No | ： 11280 |
| 投稿日 | ： 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
|