16/11/26 11:33:01.25 3CoRVnNt0.net
>>974
あぁ、数もか
ならこんな感じ?
// サイズは元から全部
Function FolderInfo(path, var cntFolder, var cntFile)
Result =""
oFso = CreateOLEObj("Scripting.FileSystemObject")
oFolder = oFso.GetFolder(path)
Result =oFolder.Size
FolderSearch(path, cntFolder, cntFile)
Fend
// subFolderが空になるまで再帰的に検索
Function FolderSearch(path, var cntFolder, var cntFile)
Result =""
oFso = CreateOLEObj("Scripting.FileSystemObject")
oFolder = oFso.GetFolder(path)
For folder In oFolder.SubFolders
FolderSearch(folder.Path, cntFolder, cntFile)
Next
cntFolder =cntFolder +oFolder.SubFolders.Count
cntFile =cntFile +oFolder.Files.Count
Fend