HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2018
0512
mina動作確認おねがいします8解決


mina

リンク

2018/5/12(Sat) 15:36:18|NO.84331

こちらのプログラムの動作確認をお願いいたします。
あるファイルを複数のファイルにコピーするプログラムです。

*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



この記事に返信する


修羅亜

リンク

2018/5/12(Sat) 19:10:32|NO.84338

動きました
Windows10 Version 1803 64bit
Intel Core i5 3470
メモリ10GB
SSD256GB+HDD1TB

個人的な意見ですが、
・番号の前後に空白を入れてほしい
・空欄の場所があるとうまく動作しないので、警告を出すようにしてほしい

あとWindowsのバージョンはアップデートしたほうがいいですよ



mina

リンク

2018/5/13(Sun) 08:15:35|NO.84350

>Windowsのバージョンはアップデートしたほうがいいですよ
Creators Updateのexeを実行して、すぐに
「Windowsの最新バージョンに更新していただきありがとうございます」
と表示されます。
それを確認した後のバージョンが1607です。



KA

リンク

2018/5/13(Sun) 09:26:34|NO.84351

現時点の最新は1803ですよ?

OSインストールしたばかりなのかな?
それとも自動更新を切っている?



KA

リンク

2018/5/13(Sun) 09:35:18|NO.84352

ついでに書くとPROなのかHOMEなのか?



mina

リンク

2018/5/13(Sun) 11:20:58|NO.84354

Win1032BitHOME
自動更新はON
OSは最初Win8がインスコされていて
Win8->Win8.1->Win10
インスコされたのは(購入したのは)3,4年ほど前。



KA

リンク

2018/5/13(Sun) 14:45:59|NO.84365

1607は相当古いです。

>>Creators Updateのexe
普通は自動更新されるので、そんなexeは使わないのです
が、理由が有って使ったのでしょうか?

設定→システム→バージョン情報で再確認しましょう。



MillkeyStars

リンク

2018/5/14(Mon) 04:37:03|NO.84382

動作確認できました。
Microsoft Windows XP Home Edition Version 2002 Service Pack 3 (5.1.2600)
Microsoft Windows Vista HomeBasic 32Bit (6.0.6002)
Microsoft Windows 10 Pro (Insider Preview 1803 17666.1000)

上記すべての OS にて使った HSP は、HSP 3.4β3 です。



入道雲ヒカル

リンク

2018/5/14(Mon) 13:58:43|NO.84386

たぶん3月末まで不定期に出ていた更新しろ表示をキャンセルしていたからです。
1803の更新を手動でやるexeをmsサイトから落とし、実行した結果です。



ONION software Copyright 1997-2021(c) All rights reserved.