PureBoard

Code: Alles auswählen

; PB 4.51

EnableExplicit

DisableDebugger

Procedure.i CountFiles_WinAPI (sPath.s)
   Protected numFiles = 0
   Protected handle
   Protected f.WIN32_FIND_DATA
   
   If Right(sPath, 1) <> "\"
      sPath + "\"
   EndIf
   sPath + "*.*"
   
   ; start a file enum in the specified path
   handle = FindFirstFile_(sPath, f)
   If handle = #INVALID_HANDLE_VALUE
      ProcedureReturn  0
   EndIf 
   
   ; exclude subdirectory from count
   If (f\dwFileAttributes & #FILE_ATTRIBUTE_DIRECTORY) = 0
      numFiles = 1
   Else
      ; it is a directory, recursion here if needed
   EndIf

   While FindNextFile_(handle, f)
      If (f\dwFileAttributes & #FILE_ATTRIBUTE_DIRECTORY) = 0
         numFiles + 1
      Else
         ; it is a directory, recursion here if needed
      EndIf
   Wend
   ; close the file search
   FindClose_(handle)

   ProcedureReturn numFiles
EndProcedure


Procedure.i CountFiles_PB (sPath.s)
   Protected numFiles = 0
   Protected handle
   
   If Right(sPath, 1) <> "\"
      sPath + "\"
   EndIf
   
   ; start a file enum in the specified path
   handle = ExamineDirectory(#PB_Any, sPath, "*.*")
   If handle = 0
      ProcedureReturn  0
   EndIf 
   
   While NextDirectoryEntry(handle)
      If DirectoryEntryType(handle) = #PB_DirectoryEntry_File
         numFiles + 1
      Else
         ; it is a directory, recursion here if needed
      EndIf
   Wend
   ; close the file search
   FinishDirectory(handle)
   
   ProcedureReturn numFiles
EndProcedure


; -- Test
Define path$, count1, count2
Define.q time0, time1, freq, t1, t2

path$ = "C:\windows\system32\"

QueryPerformanceCounter_(@time0)   ; use high-resolution performance counter
count1 = CountFiles_WinAPI(path$) 
QueryPerformanceCounter_(@time1)
QueryPerformanceFrequency_(@freq)
t1 = (time1 - time0) * 1000000 / freq

QueryPerformanceCounter_(@time0)   ; use high-resolution performance counter
count2 = CountFiles_WinAPI(path$) 
QueryPerformanceCounter_(@time1)
QueryPerformanceFrequency_(@freq)
t2 = (time1 - time0) * 1000000 / freq

EnableDebugger

Debug "WinAPI:"
Debug Str(count1) + " Dateien"
Debug Str(t1) + " Mikrosekunden"
Debug ""
Debug "PB:"
Debug Str(count2) + " Dateien"
Debug Str(t2) + " Mikrosekunden"

Code: Alles auswählen

 - C:\Temp\FileCountSpeedTest\       - lokale Festplatte (normale 7200 RPM Sata-Platte)
 - Y:\Intranet\FileCountSpeedTest\   - RAID-10 Verbund im Netzwerk (Win2K-Server, Active-Directory)
 - S:\FileCountSpeedTest\            - single SSD im Netzwerk  (Win2K-Server, Active-Directory)

Code: Alles auswählen

EnableExplicit

#TestDirs     = 3					; Anzahl der Verzeichnisse, die gestestet werden sollen
#DirTestLoops = 3					; Anzahl der Testdurchläufe
#NumOfFiles   = 10000			; Anzahl der anzulegenden Dateien

#FilePrefix   = "TestFile"		; Präfix der anzulegenden Dateien
#FileSuffix   = ".tst"			; Suffix der anzulegenden Dateien

Dim Dir.s(#TestDirs - 1)
Dim Timer(#TestDirs - 1 ,4 + #DirTestLoops * 2)
Define Counter, FileCount, LoopCount, handle, numFiles

; --------------- festlegen, in welchen Verzeichnissen die Testdateien angelegt werden sollen ---------------------

Dir(0) = "C:\Temp\FileCountSpeedTest\"			; lokale Festplatte (normale 7200 RPM Sata-Platte)
Dir(1) = "Y:\Intranet\FileCountSpeedTest\"	; RAID-10 Verbund im Netzwerk
Dir(2) = "S:\FileCountSpeedTest\"				; single SSD im Netzwerk

; --------------- Testverzeichnis und Dateien erstellen --------------------

For Counter = 0 To #TestDirs - 1
	CreateDirectory(Dir(Counter))
	SetCurrentDirectory(Dir(Counter))
	
	Debug "Erstelle " + Str(#NumOfFiles) + " Dateien im Verzeichnis: " + Dir(Counter) + " ..."
	
	DisableDebugger
	
	Timer(Counter,0) = ElapsedMilliseconds()
	
	For FileCount = 1 To #NumOfFiles
		If CreateFile(0, #FilePrefix + Right(Str(100000 + FileCount),5) + #FileSuffix)
			CloseFile(0)
		EndIf
	Next
	
	Timer(Counter,1) = ElapsedMilliseconds()
	
	EnableDebugger
	
	Debug Str(Timer(Counter,1) - Timer(Counter,0)) + " ms zum Erstellen von " + Str(#NumOfFiles) + " Dateien im Verzeichnis: " + Dir(Counter)
	
Next

Debug ""

; --------------- Verzeichnis der erzeugten Dateien mehrfach einlesen --------------------

Debug "Verzeichnisse werden " + Str(#DirTestLoops) + " mal eingelesen . . ."

DisableDebugger

For Counter =  0 To #TestDirs - 1
	Timer(Counter,4) = 0
	
	For LoopCount = 0 To #DirTestLoops-1
		Timer(Counter,5 + LoopCount * 2) = ElapsedMilliseconds()

		numFiles = 0
		handle = ExamineDirectory(#PB_Any, Dir(Counter), "*.*")
		If handle
			While NextDirectoryEntry(handle)
				If DirectoryEntryType(handle) = #PB_DirectoryEntry_File
					numFiles + 1
				EndIf
			Wend
			FinishDirectory(handle)
		EndIf
		
		Timer(Counter,6 + LoopCount * 2) = ElapsedMilliseconds()
		Timer(Counter,4) + Timer(Counter,6 + LoopCount * 2) - Timer(Counter,5 + LoopCount * 2)
		
		If numFiles < #NumOfFiles
			EnableDebugger
			Debug numFiles
			DisableDebugger
		EndIf
		
	Next
Next

EnableDebugger

; --------------- Ergebnis der Durchgänge ausgeben --------------------

Debug ""

For Counter =  0 To #TestDirs - 1
	
	Debug "Ergebnisse von Verzeichnis : " + dir(Counter)
	
	For LoopCount = 0 To #DirTestLoops-1
		Debug "Durchgang " + Str(LoopCount+1) + " : " + Str(Timer(Counter,6 + LoopCount * 2) - Timer(Counter,5 + LoopCount * 2)) + " ms"
	Next
	
	Debug "Durchschnitt : " + Str(Timer(Counter,4) / #DirTestLoops) + " ms"
	Debug ""
Next

; --------------- erzeugte Dateien wieder löschen --------------------

For Counter = 0 To #TestDirs - 1
	
	SetCurrentDirectory(GetHomeDirectory())
	
	DisableDebugger
	
	Timer(Counter,2) = ElapsedMilliseconds()
	DeleteDirectory(Dir(Counter), "*.*")
	Timer(Counter,3) = ElapsedMilliseconds()
	
	EnableDebugger

	Debug Str(Timer(Counter,3) - Timer(Counter,2)) + " ms zum Löschen aller Dateien im Verzeichnis: " + Dir(Counter)
Next

Debug "- Fertig -"