Traverse drive/sub-folders

Dev Zone Code
1

Hi all,

Does anyone know what I need to change to the below so that it searches H:\ and all its subfolders?

"start_folder="H:\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set olkApp = CreateObject("Outlook.Application")
Set objFolder = objFSO.GetFolder(start_folder)
For Each objFile In objFolder.Files
If LCase(objFSO.GetExtensionName(objFile.Name)) = "pst" Then
WScript.Echo "Found PST:" & objFile.Name
olkApp.Session.AddStore objFile.Path
End If
Next"

I've looked into traverse etc. but I'm sure there's something better suited.

Thanks,

2

What language is this?

This could be useful to you:

3

its looks like vbs or wscript

1 Like
4

I'm not good with vbs but why not just use a batch file and a command like this

cmd.exe
dir -s H:\ | findstr *.pst

powershell.exe
ls H:\ | findstr *.pst

also I'm amusing by looking at your code your looking for all files ending in .pst

5

You could also install cygwin, and use the unix find command:

https://www.cygwin.com/

1 Like
6

Yes that's correct, this is because a number of people that will be running this have more that one PST file.

7

Thanks for this, I'll take a look.

8

In this instance it probably is fine to do so, but every-time I have been involved in a project that requires CygWIn as a dependency, most recently with my current client, it has resulted in an unbelievable headache when building the project in a continuous integration environment (in this case TeamCity running on Windows Server 2012) or on mac dev machines. Otherwise I would agree, find is a very simple solution to the given problem, and if OP is will to do all this in a linux environment or willing to use the linux subsystem for windows, still a viable and elegent solution.

Cheers,
-CloudPlumber

9

its probably best to just use windows built in commands for compatibility like the ones I previously posted that way you dont need to install anything

1 Like
10

So after trawling through multiple search results on Google and Reddit over the last couple of days the answer to my "prayers" was discovered.

I found someone that had a solution using Powershell rather than VB.

If anyone is interested the script is located here.