あるファイルを複数のファイルにコピーするプログラムです。
ちなみに、僕の環境ではしっかり動作しました。
*kidou notesel cpdt bgscr 1,480,240 gsel 1,-1 title "" pos 70,120 mes "ファイル連続コピー中です。しばらくお待ちください。" sdim cop0,10000 sdim cop1,10000 sdim cop7,10000 sdim cop8,10000 gsel 0,1 *menu cls pos 0,0 title "ファイル連続コピー機 1.0 Mejar(Release 1011)" mes "連続コピーするファイル" input cop0,200,25,0 pos 201,18 button "参照",*osel pos 0,44 mes "連続コピー先のフォルダ" input cop1,200,25,0 pos 201,62 button "参照",*fsel pos 0,88 mes "連続コピーの回数" combox cop2,125,"1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17\n18\n19\n20\n21\n22\n23\n24\n25\n26\n27\n28\n29\n30" mes "ファイル番号の初期値" combox cop3,125,"1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17\n18\n19\n20\n21\n22\n23\n24\n25\n26\n27\n28\n29\n30" mes "ファイル番号の前につける文字列" input cop7,200,25,0 mes "ファイル番号の後ろにつける文字列" input cop8,200,25,0 objsize 100,25 mes "ファイル番号を付ける位置" combox cop9,125,"ファイル名の前\nファイル名の後" objsize 150,25 button "連続コピーの開始",*cstat stop *osel dialog "",16,"" cop0=refstr cop5=getpath(cop0,8+1) cop6=getpath(cop0,2) goto *menu *fsel ;***** フォルダ選択ダイアログ表示 (comobj20.hsp) ***** newcom ShellApp, "Shell.Application" sdim Folder,260 objFolder=ShellApp("BrowseForFolder",hwnd,"コピー先のフォルダを選択してください。",0,"PC") ;▼キャンセルの場合 if varuse(objFolder)==0 { ShellApp = 0 objFolder = 0 stop } ;▼OKの場合は、選択されたパス名を取得する objItems=objFolder("Items") : objItem=objItems("Item") cop1=objItem("Path") ;▼オブジェクト変数の解放 objFolder=0 objItems =0 objItem =0 ShellApp =0 goto *menu *cstat dialog "これから、ファイルの連続コピーを開始します。",,"ファイル連続コピー機 1.0 Mejar(Release 1011)" if cop0="":goto *ccmp if cop1="":goto *ccmp gsel 0,-1 gsel 1,1 cops=cop3+1 cope=cop2+1 repeat cope,cops if (cop7="")&(cop8="")::else:sni=cop7+cnt+cop8 sn=str(sni) if cop1 != dir_cur:chdir cop1 if cop9=0:bcopy cop0,sn+cop5+cop6:else:bcopy cop0,cop5+sn+cop6 await 50 loop gsel 1,-1 gsel 0,1 dialog "実行したコピーをファイルに出力しますか?",2,"ファイル連続コピー機 1.0 Mejar(Release 1011)" if stat=6{ noteadd cop0,0,1 noteadd cop1,1,1 noteadd str(cop2),2,1 noteadd str(cop3),3,1 dialog "fcd",17,"ファイル連続コピー機 データファイル" notesave refstr } *ccmp dialog "ファイルの連続コピーが終わりました。",,"ファイル連続コピー機 1.0 Mejar(Release 1011)" stop
OS:Windows 10 Version 1607 [10.0.14393](Build 14393.2189)
CPU:Intel Atom Z2760 @1.80Ghz
RAM:2GB
フラッシュメモリ:Samsung MCG8GA