Log performance of clearing files by extension

joyfullservice · Dec 1, 2023 · b70b8cd · b70b8cd
1 parent a767252
commit b70b8cd
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Version Control.accda.src/modules/modFileAccess.bas b/Version Control.accda.src/modules/modFileAccess.bas
@@ -283,6 +283,7 @@ Public Sub ClearFilesByExtension(ByVal strFolder As String, strExt As String)
     Dim strFolderNoSlash As String
 
     ' While the Dir() function would be simpler, it does not support Unicode.
+    Perf.OperationStart "Clear Files by Ext"
     strFolderNoSlash = StripSlash(strFolder)
     If FSO.FolderExists(strFolderNoSlash) Then
         For Each oFile In FSO.GetFolder(strFolderNoSlash).Files
@@ -293,6 +294,7 @@ Public Sub ClearFilesByExtension(ByVal strFolder As String, strExt As String)
             End If
         Next
     End If
+    Perf.OperationEnd
 
 End Sub