kann mir jemand helfen
Danke schonmalPHP Code:
Public Class Form1
Inherits System.Windows.Forms.Form
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 File As System.IO.File
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 = "Helper.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
TextBox1.Text = ("Pfad: " & Microsoft.VisualBasic.Left(sBuffer, nResult))
Else
MsgBox("Datei nicht gefunden!")
End If
End Sub
End Class
