HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
1221
アイマス21外部COM2未解決


アイマス21

リンク

2008/12/21(Sun) 19:21:31|NO.21770

外部COMを使ってフォルダ選択ダイアログを出したのですが、
デスクトップを選ぶとエラーになります。なぜですか?

newcom ShellApp, "Shell.Application" objFolder=ShellApp("BrowseForFolder", hwnd, "フォルダの選択", 0, dirinfo(0x10000)) if varuse(objFolder)==0 : return objItems=objFolder("Items") : objItem=objItems("Item") folder=objItem("path") objFolder=0 objItems=0 objItem=0 ShellApp=0 mes folder



この記事に返信する


-71

リンク

2008/12/21(Sun) 20:14:02|NO.21771

とりあえず、既にしている他の質問への回答になんらかのレスポンスをしたらどうでしょうか?



inovia

リンク

2008/12/21(Sun) 23:23:03|NO.21775

これでいけそうで〜す。

以下を参考にしてみました。
http://homepage2.nifty.com/pasocon/shell/shell/browseforfolder.html
http://www.accessclub.jp/bbs/0062/beginers23842.html


newcom ShellApp, "Shell.Application" objFolder=ShellApp("BrowseForFolder", hwnd, "フォルダの選択", 0, dirinfo(0x10000)) if varuse(objFolder)==0 : stop objItems=objFolder("Items") objItem=objItems("Item") if varuse(objItem)==0{ newcom WshShell, "WScript.Shell" objspcfol=WshShell("SpecialFolders") folder=objspcfol("Item","Desktop") delcom objspcfol:delcom WshShell }else{ folder=objItem("path") } mes folder delcom objItem delcom objItems delcom objFolder delcom ShellApp



ONION software Copyright 1997-2023(c) All rights reserved.