Versteckte Dateien finden

    Hi habe mal wieder eine Frage. Gibs die möglich keit ein script in eienmem bestimten ordner nach versteckten *.exe zu suchen lassen? Der paht ist bekannt nur ist nicht immer eine versteckte *.exe vorhanden. Was halt auch nicht bekannt ist wie die exe genau heist des wegen halt eine such funktion.

    [autoit]

    Dim $FolderName = @UserProfileDir
    Dim $FileCount = 0

    ScanFolder($FolderName)

    MsgBox(0,"Done","Folder Scan Complete. Scanned " & $FileCount & " Files")

    Func ScanFolder($SourceFolder)
    Local $Search
    Local $File
    Local $FileAttributes
    Local $FullFilePath

    $Search = FileFindFirstFile($SourceFolder & "\*.*")

    While 1
    If $Search = -1 Then
    ExitLoop
    EndIf

    $File = FileFindNextFile($Search)
    If @error Then ExitLoop

    $FullFilePath = $SourceFolder & "\" & $File
    $FileAttributes = FileGetAttrib($FullFilePath)

    If StringInStr($FileAttributes,"D") Then
    ScanFolder($FullFilePath)
    Else
    LogFile($FullFilePath)
    EndIf

    WEnd

    FileClose($Search)
    EndFunc

    Func LogFile($FileName)
    $FileCount += 1
    ToolTip($FileName,0,0) ;TIP: HIER EINBAUEN
    EndFunc

    [/autoit]

    und die 2 einbauen

    [autoit]

    FileGetAttrib()
    StringInStr()

    [/autoit]

    Kleiner Tipp:
    Seit v3.3.2.0 braucht man nicht mehr per StringInStr(FileGetAttrib(...), "D") abzufragen ob es sich um ein Verzeichnis handelt sondern man kann nun einfach das @extended-Makro von FileFindNextFile nutzen. (Siehe >>Hilfe<<)
    Und das If $Search = -1 kann außerhalb der While-Schleife da es sonst unnötigerweise jedesmal neu überprüft wird.

    Einmal editiert, zuletzt von AspirinJunkie (8. Juli 2010 um 14:15)

    Danke joszef das ist schon richtig gut so was hatte ich mir gedacht eine frage habe ich aber noch die $FileName ist das ein array oder ist das nur ein strig was ich noch mit string split trennen muss?