[ruby-list:39280] Re: DnD on win32

		志村 弘之

In message "[ruby-list:39278] Re: DnD on win32", <[e-mail]>, 
[e-mail] wrote...
 >横つっこみですが
 >
 ># Win版の Ruby なら ファイル名リスト くらいは DnD で受かるはず

さらに横つっこみですが、VBScript でドラッグ&ドロップを受けて、
ruby を呼び出すなんてのも出来ます。

VBScriptでファイルパスの処理をしてやれば、
rubyファイルの指定をフルパス名で書いてやらなくても大丈夫です。
(DnDの VBSファイルと同一フォルダに rubyスクリプトファイルを置く)

---------- ここから DnD.vbs と言うファイル名でrubyスクリプトと同じフォルダに保存
Dim WshShell
Dim fname
Dim msg
Dim arrMyPathName
Dim rbPathName

If WScript.Arguments.Count<1 Then
   msg =       "Drag and Drop"&Chr(10)&Chr(10)
   msg = msg & "ファイルをvbsアイコンにドロップすると DnD.rb を実行。"&Chr(10)
   msg = msg & "複数ファイルをドロップすれば一括処理。"
   MsgBox msg
   WScript.Quit
End If

arrMyPathName = split(WScript.ScriptFullName, "\")
arrMyPathName(ubound(arrMyPathName)) = "DnD.rb" 'ここにrubyファイル名
rbPathName = join(arrMyPathName, "\")
'WScript.Echo rbPathName
' CurrentDirectoryプロパティを使う方が分かり易い 

Set WshShell = WScript.CreateObject("WScript.Shell")
For Each fname In WScript.Arguments
  WshShell.Run """" & rbPathName & """" & " " & """" & fname & """" ,1,true
Next
' ドラッグされたファイルを一つづつ渡す。For を使わずまとめて渡すようにしても良い。
-----------------ここまで
---------------------------------------+---------+---------+以上 2004/2/27