模块: Public Declare Function SearchTreeForFile Lib "imagehlp.dll" (ByVal lpRoothPath As String, ByVal lpInputName As String, ByVal lpOutputName As String) As Long 窗体代码:
或许可以让用户“自己动手,丰衣足食”。 下面的代码可以让用户把软件路径直接拖拽进程序里。 Private Sub Form_Load() Text1.OLEDropMode = 1 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.Text = Data.Files(1) End Sub