Visual Basic Tips

エクスプローラからデスクトップアイコンへのドロップ

エクスプローラからファイルを複数選択してデスクトップアイコンのアプリケーションにドロップさせたい時は、ドロップされたアプリケーションでCommand()を使用してプログラム引数を取得します。その引数の中にファイル名（パス名）が格納されています。
サンプルではCommand()で取得したプログラム引数を各パス名に分解し、リストボックスに表示します。

Private Sub Form_Load()
　　Dim str As String
　　Dim i As Integer
　　Dim intSvi As Integer
　　Dim bolFirst As Boolean

　　str = Command()

　　bolFirst = True

　　For i = 1 To Len(str)
　　　If Mid(str, i, 1) = ":" Then
　　　　　If bolFirst = True Then
　　　　　　　bolFirst = False
　　　　　Else
　　　　　　　List1.AddItem Trim(Mid(str, intSvi - 1, i - intSvi))
　　　　　End If
　　　　　intSvi = i
　　　End If
　　Next
　　If bolFirst = False Then
　　　　List1.AddItem Trim(Mid(str, intSvi - 1, Len(str) - intSvi + 2))
　　End If

End Sub

DownLoad vbtips004.lzh 5KB (VB6.0)