人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Windowsのソフトあるいはバッチに関する質問です。
特定のフォルダに取り込んだ複数のファイルのファイル名を、
すべてアプリに引数として渡したいのですが、実現できるソフトやバッチはないでしょうか?
具体的には「C:\foo\」内に「A.jpg」と「B.jpg」と「C.jpg」がある場合、
「C:\bar\D.exe "C:\foo\A.jpg" "C:\foo\B.jpg" "C:\foo\C.jpg"」というコマンドを実行したいのです。

ただし
1,フォルダ内のファイルは状況によって変化するので決め打ちできない。
2,出来る限りマウス操作やコマンド入力をなくして自動化したい。
3,技術、時間ともにないため、ソフトの自作は避けたい。
この三つの条件を満たしているものがうれしいです。

●質問者: xga
●カテゴリ:コンピュータ
✍キーワード:.jpg Bar exe Windows アプリ
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● zuborer
●27ポイント

私も使わせて貰っている”だいなファイラー”という

二画面ファイラーです。

設定で登録したアプリに、選択したファイルを任意のキーで渡せますが

ご希望はちょっと違うかな?

http://www.vector.co.jp/soft/win95/util/se068008.html

◎質問者からの返答

回答ありがとうございます。

ただ、それだと結局コマンドプロンプトを開いて

エクスプローラ上からファイルをドラッグ&ドロップするのと

大して変わらないんですよね。

ファイルを手動で選択するのではなく、

フォルダを選択するとフォルダ内の全ファイルが

渡せるというものを望んでいます。


2 ● Mook
●27ポイント

下記をtest.vbs 等、拡張子.vbsで保存し、C:\foo の下においてください。

ダブルクリックすると、ファイルを置いたフォルダにある、jpg ファイルを引数として、Command で定義したプログラムを実行します。

Option Explicit
' ---- 実行するコマンドを記述
 Const Command = "C:\bar\D.exe"
' ---- 対象となる拡張子を指定
 Const Extent = "JPG"

 Dim objShell
 Set objShell = WScript.CreateObject("WScript.Shell")

 Dim objFso
 Set objFso = WScript.CreateObject("Scripting.FileSystemObject")

 Dim objFolder
 Dim objFile
 Dim comString

 comString = """" & Command & """"

 Set objFolder = objFso.GetFolder( objShell.CurrentDirectory )
 For Each objFile In objFolder.Files
 If InStr( UCase( objFile.Name ), UCase( "." & Extent ) ) > 0 Then
 comString = comString & " """ & objFolder.Path & "\" & objFile.Name & """"
 End If
 Next

 WScript.Echo comString
 objShell.Run comString, 1, True

実行の直前に、実行する内容をウィンドウで表示します。

表示が不要な場合は、最後から二行目の青い行を削除してください。


3 ● kn1967
●26ポイント

使用するアプリがワイルドカードに対応しているならば、

C:\bar\D.exe "C:\foo\*.jpg"

という手が使えますので試してみてください。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ