| まさやんさんvbsファイルを作って下さいと書いているので
それを調べて下さい。
> Set Wshell とかは 桐のコマンド？
> シェル実行のコマンド 簡単なのは理解できますが
> パラメータを記述するところまで詳しい知識が無いもので
> お手隙なときご伝授 またお願いします。
引用は必要な部分だけで良いと思います。
引用は簡単に削除可能ですよね。
桐のフォームにボタンを作り手続き実行でvbsファイルを作成します。
proc exif情報取得(Str &Ssoft,Str &Soption,Str &Sfile)
/* コマンドボタンを作成します。名前は適当でよい */
var Int {&Iend} /* １行目は 表示 パラメータ 確定する */
* ２行目は機能名 なし にして パラメーターに以下↓を設定
if (#FSIZE(&Sfile)<1) /* #代入(&STR,"D:\ソフトのフォルダー名\ExifRead.exe") */
* ３行目は 手続き実行 パラメーターに↓以下を設定
* exif情報取得,&STR," -CSV ",[fullname] ←画像ファイル名
確認 #ファイル名(&Sfile,2)+" は存在しません。
else if (#FSIZE(&Ssoft)<1)
確認 #ファイル名(&Ssoft,2)+" は存在しません。ネットに接続して表示しますか",&Iend
シェル実行 "http://www.takenet.or.jp/~ryuuji/", 表示=最大化,
else
印字開始 "exifr.vbs", 終了状態= &Iend
印字 "Set Wshell = WScript.CreateObject(""WScript.Shell"")"
印字 "Wshell.Run "+""""+&Ssoft+&Soption+""""""+&Sfile+""""+", 0, True"
印字終了 改頁 = しない
sh #一括パス名+"exifr.vbs", 表示 = 最小化 ,プロセス番号 = &Iend
Kill &Iend
end
End
|
