mieki256's diary

◎ win32oleとの相性。 :

require 'dxruby'
require 'win32ole'

C:/ruby193mingw/lib/ruby/site_ruby/1.9.1/rubygems/custom_require.rb:36:in `new': fail: OLE initialize (RuntimeError)
    HRESULT error code:0x80010106
      Cannot change thread mode after it is set.
        from C:/ruby193mingw/lib/ruby/site_ruby/1.9.1/rubygems/custom_require.rb:36:in `require'
        from C:/ruby193mingw/lib/ruby/site_ruby/1.9.1/rubygems/custom_require.rb:36:in `require'
        from C:/ruby193mingw/lib/ruby/1.9.1/win32ole.rb:1:in `<top (required)>'
        from C:/ruby193mingw/lib/ruby/site_ruby/1.9.1/rubygems/custom_require.rb:36:in `require'
        from C:/ruby193mingw/lib/ruby/site_ruby/1.9.1/rubygems/custom_require.rb:36:in `require'
        from C:/home/prg/NetBeansProjects/RubyAnimePvEasyMaker/lib/select.rb:9:in `<top (required)>'
        from C:/home/prg/NetBeansProjects/RubyAnimePvEasyMaker/lib/main.rb:17:in `require_relative'
        from C:/home/prg/NetBeansProjects/RubyAnimePvEasyMaker/lib/main.rb:17:in `<main>'

◎ スクリプトが終了してくれない。 :

◎ 公式サイトの掲示板が気になる。 :

' フォルダ選択ダイアログを開いて、選択されたフォルダパスを返す VBScript

Option Explicit
On Error Resume Next

Dim oParam, oShell, oFolder, s, dirname

Set oParam = WScript.Arguments
If oParam.Length > 0 Then
  s = oParam(0)
Else
  s = "フォルダを選択してください"
End If
dirname = "::"

Set oShell = WScript.CreateObject("Shell.Application")
If Err.Number = 0 Then
  Set oFolder = oShell.BrowseForFolder(0, s, 0)
  If Not oFolder Is Nothing Then
    ' フォルダ選択がされた場合
    dirname = oFolder.Items.Item.Path
  Else
    ' キャンセルされた場合
    dirname = ""
  End If
Else
  ' エラーが発生した場合
  ' WScript.Echo "エラー：" & Err.Description
  dirname = ""
End If

' 結果を出力
WScript.Echo dirname

Set dirname = Nothing
Set s = Nothing
Set oFolder = Nothing
Set oShell = Nothing
Set oParam = Nothing

#!ruby -Ks
#
# DXRubyを使ったスクリプト中から、
# vbsを呼ぶことでフォルダ選択ダイアログを開いて、
# 結果を受け取ってみる

require 'dxruby'

fnt = Font.new(12)
folder = ""

Window.loop do
  break if Input.keyPush?(K_ESCAPE)
  
  if Input.keyPush?(K_Z)
    title = "画像フォルダを選択してください"
    wsh_fname = "select_open_folder.vbs"
    folder = %x[ cscript //nologo #{wsh_fname} #{title} ]
    folder.chomp! # 返ってきた文字列には改行も含まれているので除去
    folder = "" if folder =~ /^::/ # 特殊フォルダを選択された際の対策
  end
  
  Window.drawFont(16, 16, "Z   : フォルダ選択ダイアログを開く", fnt)
  Window.drawFont(16, 32, "ESC : 終了", fnt)
  Window.drawFont(16, 64, "Folder : [#{folder}]", fnt)
end