On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.
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.
|Developing a front end to SPLUNK||1||111|
|Cross checking component service dlls||2||46|
|Cannot locate cell||15||43|
|Content of a read only textbox are not being saved in table in asp.net - VB||5||36|
Join the community of 500,000 technology professionals and ask your questions.