Access HD Kode

\'Prøv:

Private Declare Function SearchTreeForFile Lib \"imagehlp\" (ByVal RootPath As String, ByVal InputPathName As String, ByVal OutputPathBuffer As String) As Long
Private Const MAX_PATH = 260

Private Sub Form_Load()
    Dim tempStr As String, Ret As Long
    tempStr = String(MAX_PATH, 0)
   
    Ret = SearchTreeForFile(\"C:\\\", \"NOTEPAD.EXE\", tempStr)
   
    If Ret <> 0 Then
        Shell Left$(tempStr, InStr(1, tempStr, Chr$(0)) - 1), vbNormalFocus
    Else
        MsgBox \"File not found!\"
    End If
End Sub

FUCK EN GENIAL KODE!!!!!
DEN ER GODTAGET!!!

tusind tak fra ronnie

skriv lige et eller andet til mig, jeg kan ikke give pointene til dig fordi jeg kom til at skrive en kommentar først. sorry sjh