Counter = 0
FileCount = 0
Function Main
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
objStartFolder = “C:Library”
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
FileMain = objFolder.Path &”” & objFile.Name
Set objTextFile = objFSO.OpenTextFile (FileMain, 1)
objTextFile.ReadAll
Log.message “FileMain: “& objFile.Name & “:” & objTextFile.Line
FileCount = FileCount+1
Counter = Counter + objTextFile.Line
Log.Message Counter
Log.Message FileCount
Next
ShowSubfolders objFSO.GetFolder(objStartFolder)
End Function
FileCount = 0
Function Main
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
objStartFolder = “C:Library”
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
FileMain = objFolder.Path &”” & objFile.Name
Set objTextFile = objFSO.OpenTextFile (FileMain, 1)
objTextFile.ReadAll
Log.message “FileMain: “& objFile.Name & “:” & objTextFile.Line
FileCount = FileCount+1
Counter = Counter + objTextFile.Line
Log.Message Counter
Log.Message FileCount
Next
ShowSubfolders objFSO.GetFolder(objStartFolder)
End Function
Valla Counters
May 21, 2020 May 21, 2020 Valla Leave a comment. Counter = 0 FileCount = 0 Function Main Set objFSO = CreateObject(“Scripting.FileSystemObject”). Imperius is a high-damage melee Bruiser that can also be played as a tank.He has a variety of self-healing mechanisms allowing him to pursue his enemies relentlessly. While his damage is to be respected, his limited mobility and underwhelming peel potential usually require him to be paired with another front.
Sub ShowSubFolders(Folder)
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
For Each Subfolder in Folder.SubFolders
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
FileSub = Subfolder.Path & “” &objFile.Name
Set objTextFile = objFSO.OpenTextFile (FileSub, 1)
objTextFile.ReadAll
Log.message “FileSub: “& objFile.Name & “lines: ” & objTextFile.Line
FileCount = FileCount+1
Counter = Counter + objTextFile.Line
Log.Message Counter
Log.Message FileCount
Next
ShowSubFolders Subfolder
Next
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
For Each Subfolder in Folder.SubFolders
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
FileSub = Subfolder.Path & “” &objFile.Name
Set objTextFile = objFSO.OpenTextFile (FileSub, 1)
objTextFile.ReadAll
Log.message “FileSub: “& objFile.Name & “lines: ” & objTextFile.Line
FileCount = FileCount+1
Counter = Counter + objTextFile.Line
Log.Message Counter
Log.Message FileCount
Next
ShowSubFolders Subfolder
Next
Valla Counters Top
End Sub