VB6 用鼠标右键单击时获取文件夹路径。

Question

我创建了一个非常小的项目，包括获取一个目录的路径。为此，我在表单中添加了一个文本框，它将显示收集到的目录路径。

编译后，我把它放在了: C:.然后我把它添加到鼠标右键菜单中. 但我的问题来了. 我的目标是让我的应用程序收集文件夹的路径，当我右键点击并在任何我选择的文件夹中运行我的应用程序时，例如：我的文档，桌面，等等。C:.

我试过手动操作，但我不想这样做。在这个例子中，我必须先运行我的项目，然后drog并将一个文件从该文件夹拖到文本框中。

Private Sub Command1_Click()
   Dim strFullFilePath As String
   strFullFilePath = Text1.Text
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   Text2 = fso.GetParentFolderName(strFullFilePath)
End Sub

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
   Text1 = Data.Files(1)
End Sub

我将感谢任何建议。我在网站上搜索了与我的问题相同的问题，但我没有找到任何。

谢谢您的建议

Answer 1

改变程序的注册，在最后添加"%V"。

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Directory\Background\shell\Project\command] @="C:\\Project.exe" "%V"

然后，资源管理器将在命令行上把目录传给你。你可以使用 Command() VB.NET中的函数。

Private Sub Command1_Click()
   Dim strFullFilePath As String
   strFullFilePath = Text1.Text
   Text2 = Command()
End Sub