creating folders from file names

[Atomic]

Basically I have a bunch of files (peoples names eg smithj, jonesp, carterg etc.) and I need to create a folder with the same name and move the file to it.

eg. smithj.txt -> smithj/smithj.txt

Anyone know a good script to do this? (vb or a bat file would be best but unix would be ok)

[Shad]

In VBS, something along the lines of...

Set myfol as fso.getfolder(pathtofoldercontainingfiles)
For each file in myfol
fso.createfolder(pathtofoldercontainingfiles & "\" & removeExtension(file.name))
Next

[Paul Adams]

This code should work - just edit strFolderPath to suit.
It checks to see if the folder already exists before creating it, and will move all files of the same name but different extension into the same folder.
(e.g. Test File 1.txt and Test File 1.mpg would both end up in C:\Test Folder\Test File 1)

Probably not the most elegant or efficient way to do it, and it doesn't check that your specified folder exists first, but it works (on my PC at least )

Const	strFolderPath = "C:\Test Folder"
Dim	fso, objFolder, strFileLessExt

Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder(strFolderPath)

For each objFile in objFolder.Files
  strFileLessExt = Left(objFile.Name, InStr(objFile.Name, ".") - 1)
  If Not fso.FolderExists(strFolderPath & "\" & strFileLessExt) then
    fso.CreateFolder(strFolderPath & "\" & strFileLessExt)
  End If
  objFile.Move(strFolderPath & "\" & strFileLessExt & "\")
Next

set fso = Nothing
set objFolder = Nothing

[Atomic]

Oh Excellent Cheers Guys!

Thats gonna save me doing the 400 or so files by hand!

[Atomic]

A little extension to this actually

They are actually HTML files, and there is an image in them, named the same as the file.

I need the script to search the file and replace that string before it moves it into the new folder created in the above problem.

eg. in smithj.htm is <img src="images/smithj.jpg"> this should be replaced with <img src="photo.jpg">

Many thanks to anyone who could do this for me. I got dragged into re-making the staff pages at work and its no fun to say the least