フォルダ 指定フォルダ内の指定拡張子ファイルの数をカウント
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Function NumberExtensionFilesInFolder(tgtPath As String) As Long '************************************************ '指定フォルダ内の指定拡張子ファイルの数をカウント '************************************************ '引数：tgtPath には取得列挙するフォルダフルパスを指定 Dim buf As String, i As Long Dim 拡張子指定 As String 拡張子指定 = "jpg" buf = Dir(tgtPath & "\*." & 拡張子指定) Do While buf <> "" i = i + 1 buf = Dir() Loop NumberExtensionFilesInFolder = i End Function |