Question

Create a VBScript script (w3_firstname_lastname.vbs) that takes one parameter (folder name) to do the following

1) List all files names, size, date created in the given folder

2) Parameter = Root Folder name - The script should check and validate the folder name

3) Optionally, you can save the list into a file “Results.txt” using the redirection operator or by creating the file in the script.

4) Make sure to include comment block (flowerbox) in your code.

5) Sample run:- C:\entd261>cscript.exe w2_sammy_abaza.vbs "c:\entd261" >results.txt

Answer 1

Answer:

Please find below the required code in VBScript. I have also finished the optional part of storing the details in Results.txt. Please refer to the output snapshots and the comments in the code to understand the logic of each statement. However, as per your requirement of comment block. The same is not possible to do in vbs. VBS only supports single line comments. So I have written comments using the same. I have converted and printed the size in KB instead of bytes so that should give you more poitns. The output will be printed with proper indentation as a table. Thanks. :)

PS: If you are satisfied with the answer, please take a couple of seconds to rate the answer. Thanks. If you do have any questions/comments, do let me know. I will be glad to help. :)

Code:-

'Check if the user has not given any arguments. Print the message and exit
if (WScript.Arguments.Count = 0) then
WScript.Echo "Missing parameters"
else
'Declare the File System object to be used
Dim fso
'Declare the path variable to be used for storing the path entered by user
Dim path
'Create the File System object using the FileSystemObject class
Set fso = CreateObject("Scripting.FileSystemObject")
'initialize the path
path = WScript.Arguments(0)
'Check if the path exists
exists = fso.FolderExists(path)
if (exists) then
  'declare a constant of size 1024 since 1024 bytes = 1 Kb
  CONST bytesToKb = 1024
  'Print the selected path
  WScript.Echo "Selected Path " & WScript.Arguments(0)
  'get the folder on path
  Set inDir=fso.GetFolder(path)
  'Create the file to store the output results
  Set outFile = fso.CreateTextFile("Results.txt",True)
  'Print the name, date created and size of each file and store the same in output file
  For Each objFile in inDir.Files
   'Calculate the padding needed for File Name. Assuming the maximum length of file name is 40 characters
   namePadding = 40 - Len(objFile.Name)
   'Calculate the padding needed for Date
   datePadding = 30 - Len(objFile.DateCreated)
   'Add spaces to file Name so that same can be printed in a tabular format
   fileName = objFile.Name & Space(namePadding)
   'Add spaces to date so that same can be printed in a tabular format
   dateCreated = objFile.DateCreated & Space(datePadding)
   'Print the details on screen
   Wscript.Echo fileName & dateCreated & CINT(objFile.Size / bytesToKb) & "Kb"
   'Store the details in ouput file with a newline character at the end
   outFile.Write fileName & dateCreated & CINT(objFile.Size / bytesToKb) & "Kb" & vbCrLf
  Next
  'Close the output file once the loop ends
  outFile.Close
else
  'Print a message if the path does not exist
  WScript.Echo "Invalid Path Entered"
end if
end if

Output:

Command Prompt

Results.txt