Windows XP - Removing subfolders but not files?

Question

I want to remove the subfolders but keep the files that a held within them so that all of these files are eventually in just one folder. Is there a quick way of doing this in XP

There are over 300 folders within folders so i would rather not have to sit there dragging and dropping files!

Answer 1

Yes, there's an easy way...

Use the search (Go to Start > Search) and do a search for *.* within the parent folder. This will list ALL the files and folders underneath it.

Select all the files, and copy them to the one folder you want them in. That's how to move them all in one go from multiple folders.

All your subfolders will then be empty ready for deletion.

All the best!

Answer 2

step-1: create some folder where you want to move all that files
step-2: run "Search", specify *.* as filename mask, and your source folder where to search.
step-3: you'll get the list of all files and subfolders found in the source folder... sort, select and copy-paste..where you want (from step-1)

Answer 3

Here's a little script that might work - I haven't tested it though. Copy and paste this into notepad, save it as "folders.vbs" on your desktop, and double-click on it. You'll be prompted for the base path where your original folder is - eg c:\myfolder\


Dim fso, flc, fl, basefolder
Dim basepath

basepath = InputBox("Enter base path")

Set fso = CreateObject( "Scripting.FileSystemObject" )
Set basefolder = fso.GetFolder(basepath)
Set flc = f.SubFolders
For Each fl in flc
RecurseFolders(fl)
Next


Sub RecurseFolders(currentfolder)
Dim fc, f, flc, fl
Set fc = f.Files
For Each f in fc
f.Move(basepath)
Next
Set flc = f.SubFolders

For Each fl in flc
RecurseFolders(fl)
Next
End Sub

Answer 4

Right click select all then drag to where you want.