Home > スポンサー広告 > Operaの右クリックメニューからあふを呼ぶ

スポンサーサイト

スポンサー広告

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

Comments:-

Comment Form

Trackback+Pingback:-

TrackBack URL for this entry
http://karafuto50.blog117.fc2.com/tb.php/14-bc8b8009
Listed below are links to weblogs that reference
スポンサーサイト from Karafuto Blog

Home > スポンサー広告 > Operaの右クリックメニューからあふを呼ぶ

Home > opera > Operaの右クリックメニューからあふを呼ぶ

Operaの右クリックメニューからあふを呼ぶ

opera

Operaの右クリックメニュー

Operaからあふにファイルパスを渡す時に、ファイルパスをショートパスで指定する。Operaのメニューファイルの[Document Popup Menu]に次の二行を追加。

Item, "Opera インストールフォルダ" = Execute program, "C:\Program Files\afx\AFX.EXE", "-s -PC:\PROGRA~1\Opera\"
Item, "Opera プロファイルフォルダ" = Execute program, "C:\Program Files\afx\AFX.EXE", "-s -PC:\DOCUME~1(UserName)\APPLIC~1\Opera\Operaprofile\"

ショートパス名を取得するVBスクリプト

入力ダイアログボックスが出たら、ファイル名かフォルダ名をフルパスで入力すると、ショートパス名をコピーする。

Dim strFullPath, strShortPath, objIE,objFSO, objFile, objFolder

strFullPath = InputBox("フルパスを入力してください。")

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(strFullPath)) Then
    Set objFile = objFSO.GetFile(strFullPath)
    strShortPath = objFile.ShortPath
Else
    Set objFolder = objFSO.GetFolder(strFullPath)
    strShortPath = objFolder.ShortPath
End If

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strShortPath
objIE.Quit

Operaのメニューの失敗例

本当はこんな素直なメニューでパスを渡らせればいいんだが、失敗する。

失敗例
Item, "Opera インストールフォルダ" = Execute program, "C:\Program Files\afx\AFX.EXE", "-s -P""C:\Program Files\Opera\""

ダブルクォーテーションのエスケープの仕方が分からない。エスケープできるんだろうか。

環境変数も使用してみたが、失敗した。

失敗例
Item, "Opera インストールフォルダ" = Execute program, "C:\Program Files\afx\AFX.EXE", "-s -P%ProgramFiles%\Opera\"

パーセントで引っかかる。パーセントのエスケープも分からん。

Comments:0

Comment Form

Trackback+Pingback:0

TrackBack URL for this entry
http://karafuto50.blog117.fc2.com/tb.php/14-bc8b8009
Listed below are links to weblogs that reference
Operaの右クリックメニューからあふを呼ぶ from Karafuto Blog

Home > opera > Operaの右クリックメニューからあふを呼ぶ

おまかせリンク(R)
全記事表示リンク
Search
Meta
Feeds

Page Top

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。