UWSC : サンプル　// SnapCrabの設定ファイルをバックアップ

2017.07.31

何故かわかりませんが、「SnapCrab」のデータが消えてしまうことあるので定期的に保存するUWSCのスクリプトです。

 

//SnapCrab(スクリーンをキャプチャー)の設定ファイルを自動保存

//Bakup保存先を指定： (推奨：uwsのファイルも同じフォルダに保存)
Bak_folder="F:\Bakup\SnapCrab_bakup"

//~.iniファイルが無いならBakup　あれば元の場所にCopy
existFile_yn=GETDIR(Bak_folder,"SnapCrab.ini") //ある時＝１
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") //ある時＝１
	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

コメント