| まさやんさんvbsファイルを作って下さいと書いているので それを調べて下さい。 > Set Wshell とかは 桐のコマンド? > シェル実行のコマンド 簡単なのは理解できますが > パラメータを記述するところまで詳しい知識が無いもので > お手隙なときご伝授 またお願いします。 引用は必要な部分だけで良いと思います。 引用は簡単に削除可能ですよね。 桐のフォームにボタンを作り手続き実行でvbsファイルを作成します。 proc exif情報取得(Str &Ssoft,Str &Soption,Str &Sfile) /* コマンドボタンを作成します。名前は適当でよい */ var Int {&Iend} /* 1行目は 表示 パラメータ 確定する */ * 2行目は機能名 なし にして パラメーターに以下↓を設定 if (#FSIZE(&Sfile)<1) /* #代入(&STR,"D:\ソフトのフォルダー名\ExifRead.exe") */ * 3行目は 手続き実行 パラメーターに↓以下を設定 * 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
|