nach langere suche habe was gefunden und in VB NET umgeschrieben. Passe die Code an deine wünsche an, dann funz !
Mit diese Code kannst du Datei Pfad (EXE, DLL, OCX) ermitteln !
CODE IN VB NET
Die Code funz 100%, hab selber getestet ! :thumbup:
![:thumbup:](https://www.vb-paradise.de/wcf/images/smilies/thumbup.png)
Mit diese Code kannst du Datei Pfad (EXE, DLL, OCX) ermitteln !
CODE IN VB NET
VB.NET-Quellcode
- Public Class Form1
- Private Declare Function SearchPath Lib "kernel32" Alias "SearchPathA" (ByVal lpPath As String, ByVal lpFileName As String, ByVal lpExtension As String, ByVal nBufferLength As Integer, ByVal lpBuffer As String, ByVal lpFilePart As String) As Integer
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim sFile As String
- Dim nResult As Long
- Dim sBuffer As String
- ' Datei, nach der gesucht werden soll
- sFile = "explorer.exe"
- ' Buffer für die Rückgabe des Verzeichnisses
- Const MAX_PATH = 260
- sBuffer = Space$(MAX_PATH)
- ' Suchvorgang starten...
- nResult = SearchPath(vbNullString, sFile, "", Len(sBuffer), _
- sBuffer, vbNullString)
- If nResult > 0 Then
- ' Datei gefunden
- MsgBox("Pfad: " & Microsoft.VisualBasic.Left(sBuffer, nResult))
- Else
- MsgBox("Datei nicht gefunden!")
- End If
- End Sub
- End Class
Die Code funz 100%, hab selber getestet ! :thumbup:
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Agent“ ()