Wednesday, April 21, 2010

VBScript tips - Recursive file search

'Create the FileSystemObject
Set objFSO = Createobject("Scripting.FileSystemObject")

'Specify the folder that will be the root
strFolder = "C:\dell" 'using dell directory is just example

'This script is designed to run from the command line and will write out all files
'Here we call the subroutine
GetFiles strFolder

'Here is the sub
Sub GetFiles(ByVal strDirectory)
Set objFolder = objFSO.GetFolder(strDirectory)
'This gets the files from the root directory
For Each objFile in objFolder.Files
Wscript.Echo objFile.Path
'This is the recursion - it gets all subfolders and files within
For Each objFolder in objFolder.SubFolders
GetFiles objFolder.Path
End Sub

No comments:

Windows 10 with Ubuntu: Install error CanonicalGroupLimited.UbuntuonWindows cannot be found or cannot be accessed

On Windows 10 Enterprise build 1709 I installed the Windows Subsystem for Linux. Next I open the Microsoft Store and did a search for Ub...