ファイルの関連付け (ID:105460)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 入ってないみたいなんです・・・。 EXEのForm_Loadに Private Sub Form_Load() Dim strArg() As String Dim i As Long strArg = getArgument() For i = 0 To UBound(strArg) List1.AddItem strArg(i) Next i End Sub ' コマンドラインを取得しスペースで分割します Function getArgument() As String() Dim strArg() As String Dim i As Long strArg = Split(Command()) ' スペースで分割 Debug.Print "UBound(strArg) = " & UBound(strArg) For i = 0 To UBound(strArg) Debug.Print strArg(i) Next i getArgument = strArg End Function このようにしたのですが、表示されません。 ドラッグアンドドロップでの起動時はファイルパスが表示されました。 ちなみにこの関数は自作ではありません。 どうしましょうか？