Google Answers Logo
View Question
Q: Collapsing Windows subfolders ( Answered,   1 Comment )
Subject: Collapsing Windows subfolders
Category: Computers > Operating Systems
Asked by: andywalldesign-ga
List Price: $5.00
Posted: 21 Sep 2006 10:03 PDT
Expires: 21 Oct 2006 10:03 PDT
Question ID: 767308
I have about 2000 font files, but each family is contained in its own
subfolder, so I have about 500 subfolders.

I would like to find an application to collapse all these subfolders
into one, so I can easily import them into my font management
application by choosing the folder.  (It does not handle searching in

Clarification of Question by andywalldesign-ga on 21 Sep 2006 10:05 PDT
The application should be freeware or shareware, I only need to use this one time.

Alternatively, if someone knows how to write some kind of script to do
this and wants to tell me, and it works, that will be good too.
Subject: Re: Collapsing Windows subfolders
Answered By: theta-ga on 21 Sep 2006 11:14 PDT
Hi andywalldesign-ga,

   I have written a quick VBScript to copy all the files from a source
folder (and its subfolders) to a destination folder. Note that if a
file with the same name exists in the destination folder, it will be
   The vbscript code to do this follows below. Copy and paste this
code into a text file, and rename it 'copyall.vbs'.

====================== contents of 'copyall.vbs' ====================
Dim objFSO

'Read in the command line arguments
Set ArgObj = WScript.Arguments
 searchInFolder = ArgObj(0)
 copyToFolder = ArgObj(1)

Set objFSO = CreateObject("Scripting.FileSystemObject")

' Copy all files in the root folder

Sub CopyFolder(strFolderName)
   Set rootFolder = objFSO.GetFolder(strFolderName)
   Set fileCollection = rootFolder.Files
   WScript.echo(" Looking inside folder '" +rootFolder.path+"' for
files to copy...")
   For Each file in fileCollection
     WScript.echo("    Copying '" +file.Name+"' to "+copyToFolder)
     objFSO.CopyFile strFolderName+"\*" , copyToFolder, true
   Set SubFolders = rootFolder.SubFolders
   For Each Folder In SubFolders
      ' Copy all files in this subfolder
End Sub

Set objFSO = Nothing
==================== end contents of 'copyall.vbs' ====================

You can also download this vbs file from here:

To execute this file, follow these steps:
   - In the StartMenu > Run dialog, type 
     and press enter. This will start the command prompt.
   - At the command prompt, go to the folder in which you have kept 'copyall.vbs'
   - Now type the following:
       cscript copyall.vbs <source folder> <destination folder>
     For eg.:
       cscript copyall.vbs C:\myfonts\  D:\allfonts
     This will copy all the files in the myfonts folder and its
subfolder, into the allfonts folder.

Hope this helps!
If you need any clarification or help in getting the script to run
properly, just ask!

Subject: Re: Collapsing Windows subfolders
From: ubiquity-ga on 29 Sep 2006 13:15 PDT
Right click on the font folder (the main folder, not the subfolder),
then "search" for filename "*.ttf" and cut the entire results and
paste it into the main font folder (or wherver you want it)

Repeat this with the search term "*.fon"

That should be all of your fonts.

Important Disclaimer: Answers and comments provided on Google Answers are general information, and are not intended to substitute for informed professional medical, psychiatric, psychological, tax, legal, investment, accounting, or other professional advice. Google does not endorse, and expressly disclaims liability for any product, manufacturer, distributor, service or service provider mentioned or any opinion expressed in answers or comments. Please read carefully the Google Answers Terms of Service.

If you feel that you have found inappropriate content, please let us know by emailing us at with the question ID listed above. Thank you.
Search Google Answers for
Google Answers  

Google Home - Answers FAQ - Terms of Service - Privacy Policy