Option ExplicitDim gFSODim dirListingDim fileNameset gFSO = CreateObject("Scripting.FileSystemObject")dirListing = ListDir("c:??*d*")If UBound(dirListing) = -1 then Wscript.Echo "No files found."Else For Each fileName in dirListing WScript.Echo FileName NextEnd If’==============================================================================’ List a directory, with the last part of the directory being the path’==============================================================================Function ListDir (ByVal Path) Dim fileRegex Dim searchFolderName Dim searchFolder Dim searchFolderFiles Dim fileName Dim fileArray…