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