指定条件ﾌｫﾙﾀﾞの自動ｺﾋﾟｰをしたいです｡ﾌｫﾙﾀﾞAの下に多数のﾌｫﾙﾀﾞA-1,A-2,A-3等を作り､それらの中に10枚前後の画像ﾌｧｲﾙを入れます｡このﾌｫﾙﾀﾞ群の中で…

指定条件ﾌｫﾙﾀﾞの自動ｺﾋﾟｰをしたいです｡

ﾌｫﾙﾀﾞAの下に多数のﾌｫﾙﾀﾞA-1,A-2,A-3等を作り､それらの中に10枚前後の画像ﾌｧｲﾙを入れます｡
このﾌｫﾙﾀﾞ群の中で10枚以上の画像ﾌｧｲﾙが入っているﾌｫﾙﾀﾞを
ﾌｫﾙﾀﾞBに自動でｺﾋﾟｰするという事をしたいのですが､何か良い方法はないでしょうか｡

例えばﾌｫﾙﾀﾞAの下のﾌｫﾙﾀﾞA-1には画像ﾌｧｲﾙが8枚,A-2には12枚,A-3には7枚の場合に
ﾌｫﾙﾀﾞBにﾌｫﾙﾀﾞA-2とその中身をｺﾋﾟｰしたいのです｡
自動と書きましたが､ﾌｫﾙﾀﾞAに入れただけで､その都度条件に合うかを判別しﾌｫﾙﾀﾞBにｺﾋﾟｰできれば最高ですが
なにかﾏｸﾛか､ｿﾌﾄか簡易のﾌﾟﾛｸﾞﾗﾑのようなものを動作させることにより判別､ｺﾋﾟｰをするというものでも十分です｡
どういうやり方ができそうか､見当がつかないためお知恵を貸していただければありがたいです｡
どうぞよろしくお願いいたします｡

OSが何か書かれていませんね｡
以下は､OSがWindowsであることを前提にしています｡

画像ﾌｧｲﾙ限定ではありませんが
何らかのﾌｧｲﾙが10個以上あるﾌｫﾙﾀﾞをｺﾋﾟｰして良いのであれば､
下記の内容をﾃｷｽﾄｴﾃﾞｨﾀ(ﾒﾓ帳でもOK)にｺﾋﾟﾍﾟして保存して下さい｡
ﾌｧｲﾙ名は､ご自分でわかりやすいものでOK｡
保存したら､拡張子を"vbs"に変更して､
実行(ﾀﾞﾌﾞﾙｸﾘｯｸ)してみて下さい｡

ｺﾋﾟｰ先に同名のﾌｫﾙﾀﾞがある場合､確認ﾒｯｾｰｼﾞなしで上書きされます｡

 sSrcPath = "C:\ﾌｫﾙﾀﾞA"
 sDestPath = "C:\ﾌｫﾙﾀﾞB"

 Set fso = CreateObject("Scripting.FileSystemObject")
  'ｺﾋﾟｰ元のﾌｫﾙﾀﾞを取得
 Set f = fso.GetFolder(sSrcPath)
  'ｻﾌﾞﾌｫﾙﾀﾞ群を取得
 Set fcs = f.SubFolders

  'ｻﾌﾞﾌｫﾙﾀﾞを個別に処理
 For Each fc In fcs
 If fc.Files.Count >= 10 Then
  'ﾌｧｲﾙ数が10以上なら､ﾌｫﾙﾀﾞをｺﾋﾟｰ
 fso.CopyFolder fc.Path, sDestPath & "\" & fc.Name
 End If
 Next

 MsgBox "終了",vbOkOnly + vbInformation, "ｺﾋﾟｰ"

VBScript,FileSystemObjectで検索すれば､いろいろ出てくると思いますので､興味があれば調べてみて下さい｡