ab.com コミュニティ

ありがとうございました。

おかげさまで期待どおりできました。

Print a'サンプル用

Print filename'サンプル用

コードの最終行の
[code]Print a'サンプル用[/code]
を、
[code]Print filename'サンプル用[/code]
に変えてください。

#N88BASIC'サンプル用
Dim buf[MAX_PATH] As Byte
Dim filename As String
GetModuleFileName(0,buf,MAX_PATH)
filename=Mid$(MakeStr(GetCommandLine()),Len(MakeStr(buf))+3)
Print a'サンプル用

exeのアイコンにドロップする場合は、
[code]#N88BASIC'サンプル用
Dim buf[MAX_PATH] As Byte
Dim filename As String
GetModuleFileName(0,buf,MAX_PATH)
filename=Mid$(MakeStr(GetCommandLine()),Len(MakeStr(buf))+3)
Print a'サンプル用[/code]
とするとコマンドラインが取得できます。

このページの検索欄に、ドラッグ＆ドロップと入力し検索ボタンをクリックすると、必要な情報が表示されますょ。

abでメモ帳や秀丸のようにテキストファイル（たとえば）をexeに直接ドラックし、そのファイルを受け取るにはどのような方法がありますか？

受け取る時のイベントなど

よろしくお願いします。