« エクスプローラで「元に戻す」の内容は? | トップページ | 文字列でSplitする。複数の文字でSplitする。 »

2007年1月11日 (木)

スクリプトからDropTargetで「写真の印刷ウィザード」を開始する。

スクリプトから関連付けのDropTargetを利用するパラダイムです。

スクリプトからDropTargetを使って「写真の印刷ウィザード」を開始します。

写真の印刷ウィザード.VBS ファイル

Set Shell=CreateObject("Shell.Application")
For Each ie In Shell.Windows()
  If InStr(TypeName(ie.Document),"IShellFolderView") Then Exit For
Next
If IsEmpty(ie) Then
  WScript.Echo "No Explorer!"
  WScript.Quit
End If
Set Shell=ie.Document.Application
Set wShell=CreateObject("WScript.Shell")
wShell.RegWrite "HKCR\*\shell\photowiz\DropTarget\Clsid","{60fd46de-f830-4894-a628-6fa81bc0190d}","REG_SZ"
Set fso=CreateObject("Scripting.FileSystemObject")
Set File=fso.GetFile(WScript.Arguments.Item(0))
Shell.NameSpace(File.ParentFolder.Path).Items().Item(File.Name).InvokeVerb "photowiz"

« エクスプローラで「元に戻す」の内容は? | トップページ | 文字列でSplitする。複数の文字でSplitする。 »