華VBAフォルダサイズサブフォルダ数ファイル数取得

Private Sub CommandButton1_Click()
'Call getFolderSize
'Call GetFileCount
Dim subfolderscount As Integer

subfolderscount = GetSubFolserCount("C:\Users\huawe\OneDrive\デスクトップ\週間作業報告書")
If subfolderscount <> 0 Then
    GetFileCountSaiki
End If

End Sub

'フォルダサイズ取得
Public Sub getFolderSize()
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
''C:\Workフォルダ内の全ファイルの合計サイズを表示します
MsgBox fso.GetFolder(“C:\Drivers”).Size / 1024 / 1024 / 1024
Set fso = Nothing

End Sub

'ファイル数取得 :再帰あり
Public Sub GetFileCountSaiki()
‘— 含まれるフォルダ数を知りたいフォルダのパス —’
Dim folderPath As String
'folderPath = “C:\Drivers”
folderPath = “C:\Users\huawe\OneDrive\デスクトップ\週間作業報告書”
‘— サブフォルダパス一覧を格納する変数 —’
Dim subFolders() As String
subFolders = GetFolderPath(folderPath)
‘— ファイルシステムオブジェクト