vb 获取文件所在路径

Question

把文件拖到软件(vb制作的)的图标上时，会显示“用***打开”，松手后那个软件(vb制作的)就会打开，然后获取该文件的路径并显示在文本框“Label1”中。

请问如何实现？

Answer 1

添加一个模块，模块里写：

Sub Main()
  Dim strCmd As String
  strCmd = Command()
  Form1.Label1.Caption = strCmd
  Form1.Show
End Sub

然后，在“工程”－“属性”－“通用”里设置启动对象为Sub Main()

追问

能不能去掉引号

追答

这得自己写代码处理

Answer 2

'编写函数，获取Private Function GetLuJIn(ByVal a As String) As String Dim i As Long For i = Len(a) To 1 Step -1 If mid(a,i,1) = "\" Then '获取最后一个"\"位置 GetLuJin = Left(a,i-1) '函数返回最后一个"\"前面的东西 Exit Function '获取之后，函数没什么事了，退出 End if Next iEnd Function追问

把路径显示在文本框“Label1”中？