Sakurako
Joined: 10 May 2007
Posts: 149
Location: China/ Canada
|
 Posted: Tue Mar 11, 2008 1:20 am Post subject: FileCheck() |
 |
|
| Code: | FileSelectFolder, FolderName
If FolderName =
return
TimeCheck := A_TickCount
FileCheck(FolderName, ".*")
TimeCheck := A_TickCount - TimeCheck
Msg := "<" TimeCheck / 1000 ">`n" FolderName " " FileCheck1
Loop
If 1_%A_Index% <>
Msg .= "`n" 1_%A_Index% " " SubStr(1_%A_Index%Check, InStr(1_%A_Index%Check, "\", 0, 0) + 1)
Else
break
Gui, Add, Edit, R30, %Msg%
Gui, Show,, FileCheck() Test
return |
| Code: | FileCheck(FolderName, FolderCheck = ".*", ListNum = 1)
{
global
; administrator mode recommended
FileCheck%ListNum% := 0
Loop %FolderName%\*.*, 1, 0
{
IfInString, A_LoopFileAttrib, D
{
If RegExMatch(A_LoopFileLongPath, FolderCheck)
FileCheck(A_LoopFileLongPath, FolderCheck, ListNum "_" A_Index)
Else
FileCheck%ListNum%_%A_Index% = 000000
%ListNum%_%A_Index% := FileCheck%ListNum%_%A_Index%
}
Else
%ListNum%_%A_Index% := A_LoopFileSize
%ListNum%_%A_Index%Check := A_LoopFileLongPath
FileCheck%ListNum% += %ListNum%_%A_Index%
}
} |
_________________
 |
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
