Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
Dim objFSO, objFolder, F Const ForAppending = 8 strFolderSrc = "C:\Users\singh763173" Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strFolderSrc) Set objLogFile = objFSO.OpenTextFile("test.csv", ForAppending) ShowFolderDetails objFolder Sub ShowFolderDetails(oF) objLogFile.Writeline objLogFile.Write oF.Size & "," objLogFile.Write oF.Files.count & "," objLogFile.Write oF.Subfolders.count objLogFile.Close End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.