Creating subfolders within pre-existing directory

[mgratz]

This may be simple and I'm just wording it wrong, but I was unable to find a solution online.

Our computers use security software that resets their local machine (Deep Freeze) data on next reboot. I want to map their Favorites folder to our network drive (F instead of their local user profile.

However, none of the current 300 users have a "Favorites" folder in their network "My Documents" Drive. I need a script that will query our F:\users directory and create the "Favorites" subfolder for every single one of their profiles (ie: F:\users\mgratz) within the directory.


Sorry if this is super simple. I'm just currently at a loss.

Thanks,
mgratz

 

[Geates]

I think you are looking for

set objFSO = CreateObject("Scripting.FileSystemObject")

for each objFolder in objFSO.GetFolder("F:\users").SubFolders
   strFavorites = objFolder.Path & "\Favorites"
   if (!objFSO.FolderExists(strFavorites)) then
      objFSO.CreateFolder strFavorites
   end if
next

-Geates

 

[jges]

I think the exclamation mark used as the boolean NOT operator is not valid VBScript (but is used in many other programming languages).

The following line

if ([COLOR=#EF2929]![/color]objFSO.FolderExists(strFavorites)) then

should probably be:

if ([COLOR=#204A87]Not[/color] objFSO.FolderExists(strFavorites)) then

 

[Geates]

oh, how I wish it was, though. Good eye!

-Geates

 

[mgratz]

Works great; you guys are superb! Thank you