✔ Brauch mal eine kurze Hilfe

[Marcus_Koeln]

Hi zusammen, bin neu hier und hab schon den ein oder anderen Denkanstoss aus eurem Forum erhalten.

Bin gerade dabei ein kleines Progy zu schreiben, mit dem u.a. Code deaktivier ich erstmal den guten alten Klammer Affen (STRG&ALT&ENTF). Weiter will ich nun nach
einer Datei suchen, wobei aber nur die Endung bekannt ist (z.b. *.doc). Den Code dafür
habe ich in nen Command.Click() eingefügt, mit dem prinzip von sFile komme ich nicht
weiter, da man hier nur nach komplettem Filename + Extension suchen kann.

Hat jemand ne Idee

Danke.

Gruss Marcus


Private Declare Function SearchPath Lib "kernel32" _
Alias "SearchPathA" ( _
ByVal lpPath As String, _
ByVal lpFileName As String, _
ByVal lpExtension As String, _
ByVal nBufferLength As Long, _
ByVal lpBuffer As String, _
ByVal lpFilePart As String) As Long
-------------------------------------------------------
Private Sub Form_Load()

Rem Pfad von Windows ermitteln
Dim sFile As String
Dim nResult As String
Dim sBuffer As String

sFile = "TaskMgr.exe"
Const MAX_PATH = 260
sBuffer = Space$(MAX_PATH)
Rem Suchvorgang starten...
nResult = SearchPath(vbNullString, sFile, "", Len(sBuffer), _
sBuffer, vbNullString)
If nResult > 0 Then
Rem Pfad gefunden
sBuffer = Left(sBuffer, InStr(sBuffer, "\" & sFile))
Label2.Caption = "Systempfad : " & sBuffer
Else
Rem Pfad nicht gefunden, weitere Fehlerroutine für mich nicht erforderlich
End If

Rem Taskmanager deaktivieren
Open sBuffer & sFile For Binary As #1
Msg1 = "Task erfolgreich deaktiviert"
Label1.Caption = Msg1

 

[ronaldh]

Dann guck Dir mal diesen Tipp an!

 

[Marcus_Koeln]

Hi,

ja das ist ja cool, t. Ist für micht etwas zu umfangreich, werde den code etwas verändern, so das es automatisch abläuft......warum soll ich was eingeben wenn es das progy für mich machen kann

vielen dank

für die schnelle antwort. wenn ich mal einem helfen kann werd ich es natürlich auch machen.

in diesem sinne

frohes fest budapest