VB6.0全盘查找文件，并把地址返回到值Ra
答案:1 悬赏:40
解决时间 2021-01-12 13:10
- 提问者网友：却不属于对方
- 2021-01-12 07:22
VB6.0全盘查找文件，并把地址返回到值Ra
最佳答案
- 二级知识专家网友：时间的尘埃
- 2021-01-12 07:30
Private Declare Function SearchTreeForFile Lib "imagehlp" (ByVal RootPath As String, ByVal InputPathName As String, ByVal OutputPathBuffer As String) As Long
Dim TempStr As String * 255, Ret As Long, Ra As String
Private Sub Command1_Click()
Ret = SearchTreeForFile("c:", "REDAgent.exe", TempStr)
If Ret <> 0 Then
Ra = Left(TempStr, InStr(1, TempStr, Chr(0)) - 1) '找到该文件
MsgBox Ra
End If
End Sub
Dim TempStr As String * 255, Ret As Long, Ra As String
Private Sub Command1_Click()
Ret = SearchTreeForFile("c:", "REDAgent.exe", TempStr)
If Ret <> 0 Then
Ra = Left(TempStr, InStr(1, TempStr, Chr(0)) - 1) '找到该文件
MsgBox Ra
End If
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息