何故かわかりませんが、「SnapCrab」のデータが消えてしまうことあるので定期的に保存するUWSCのスクリプトです。
//SnapCrab(スクリーンをキャプチャー)の設定ファイルを自動保存 //Bakup保存先を指定: (推奨:uwsのファイルも同じフォルダに保存) Bak_folder="F:\Bakup\SnapCrab_bakup" //~.iniファイルが無いならBakup あれば元の場所にCopy existFile_yn=GETDIR(Bak_folder,"SnapCrab.ini") //ある時=1 IF existFile_yn=1 THEN //確認戻しますか? IF MSGBOX("SnapCrab設定ファイルを戻しますか?", BTN_YES or BTN_NO)=BTN_NO THEN EXITEXIT //もとへ戻す SnapCrabPath=getPath() fName="SnapCrab.ini" MSGBOX("copy "+fName+" <#DBL>"+SnapCrabPath+"<#DBL>") done=DOSCMD("copy "+fName+" <#DBL>"+SnapCrabPath+"<#DBL>",,TRUE) MSGBOX("戻しましたよ!!") ELSE //Bakup ---------------- SnapCrabPath=getPath() //ファイルの存在 existFile_yn=GETDIR(SnapCrabPath,"SnapCrab.ini") //ある時=1 IF existFile_yn=1 THEN //copy --> to BakupFolder fName=SnapCrabPath+"\SnapCrab.ini" done=DOSCMD("copy <#DBL>"+fName+"<#DBL> "+Bak_folder+"\",,TRUE) // 動かない??? //SENDSTR(0,"copy <#DBL>"+fName+"<#DBL> e:\") for debug MSGBOX("コピーしたよ!!") ELSE MSGBOX("ない") ENDIF ENDIF //------------------------------------------------------------- FUNCTION getPath() getName_userDir=GET_APPDATA_DIR //AppDataフォルダの場所 //SnapCrabのフォルダを得る RESULT=getName_userDir+"\Fenrir Inc\SnapCrab for Windows" FEND
コメント