つらつら Excel VBA

私の備忘録です。

Excel VBA ファイル数を数える

'指定したディレクトリ内のファイル数を数える。
Public Function FileCount(sDir As String) As Integer
    Dim rtnCnt As Integer
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    rtnCnt = FSO.GetFolder(sDir).Files.Count
    Set FSO = Nothing
    FileCount = rtnCnt
End Function

 

※細かい条件で数えたい場合は他の方法で頑張る。