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.
Versteckte Dateien finden
-
- [ offen ]
-
Evoli_66 -
7. Juli 2010 um 23:39 -
Geschlossen -
Erledigt
-
-
Du brauchst:
[autoit]FileFindFirstFile()
[/autoit]
FileFindNextFile()
FileGetAttrib()
StringInStr() -
[autoit]
Dim $FolderName = @UserProfileDir
[/autoit]
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
EndFuncund die 2 einbauen
[autoit]FileGetAttrib()
[/autoit]
StringInStr() -
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. -
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?