| ■1625 / ) |
Re[1]: ファイル50個ごとにフォルダーを作成
|
□投稿者/ ひろ -(2006/11/16(Thu) 11:20:28)
| ■No1623に返信(もくもくさんの記事)
> ひろさん お世話になります。（特定してよいのかな？）
私もこの掲示板で教えて頂くことが多くあります。私でわかる程度であればいいのですが、私の能力以上の質問にはお答えできないことがありますので、この掲示板で活躍されている達人の方々のお力もお借りしなければいけないと思いますので、特定はしないでいただけますか。
> 先日来から、やっていて、また一つ問題が出てきまして、教えを請いたいのですが
> ファイル名に連番を付けて、コピーして別のフォルダーに入れるまではＯＫなのですが、一括処理の中で、連番を付けながら、別フォルダーにコピーをして行き、そのファルダーのコピーされたファイルの個数が１００個になったら、別のフォルダーに１０１個目からコピーして、２００個になったら、また次のフォルダーにコピーというふうには出来ないでしょうか？
> 連番のカウントで１０００から１１００になったらフォルダーを変えるorフォルダーの中のファイルの個数が１００になったら、フォルダーを変えるのか？フォルダーを自動で００１、００２とか作りながら作業を進めるのにはどのようにすれば
> 良いのでしょうか？ よろしくお願いします。
次の一括処理でどうでしょうか。
変数宣言 文字列,固有{&ファイル名１,&ファイル名２,&フォルダ名}
変数宣言 整数,固有{&連番,&フォルダ連番,&カウント}
表 "temp.tbl"
代入 &連番=1000
代入 &フォルダ連番 = 1
繰り返し ( .not #終端行 )
&フォルダ名 = "c:\複数\"+#右側文字列("00"+#文字列(&フォルダ連番),3)
フォルダ作成 &フォルダ名
&カウント = 1
繰り返し ( .not &カウント = 101 )
代入 &ファイル名１=[Ｂ]
代入 &ファイル名２="c:\複数\"+#右側文字列(&フォルダ名,3)+"\"+#文字列(&連番)+&ファイル名１
代入 &ファイル名１="c:\個人\"+&ファイル名１
ファイル複写 &ファイル名１,&ファイル名２
ジャンプ 行番号 = 次行
代入 &連番 = &連番 + 1
代入 &カウント = &カウント + 1
繰り返し終了
&フォルダ連番 = &フォルダ連番 + 1
繰り返し終了
|
|
