Hi

I receive a lot of files daily that I have to sort out and I'd like to create a vb script that could simplify my life.

What I want to do is compare some strings (the string is always at the same location in the folder name, starts at character 13 and finishes at character 17) and move the files of the similar folders to one new folder called the string.

Example of my actual situation;

C:\123456-8901-apple-123456
|__inventory.txt
|__stock.txt

C:\abcdef-hijk-apple-lmnopk
|__ backorder.txt
|__ itemsold.txt

C:\fedcba-kjih-orang-kponml
|__ demands.txt
|__ refused.txt

C:\12d3fh-12df-orang-233412
|__grosslost.txt
|__netlost.txt

And so on…

Now, the results after the script has run would end up like this;

C:\apple
|__inventory.txt
|__stock.txt
|__ backorder.txt
|__ itemsold.txt

C:\orang
|__ demands.txt
|__ refused.txt
|__grosslost.txt
|__netlost.txt

I know that I would have to do some compare in my script but I don't know how to start it.

Any help would be greatly appreciated.

Thanks

you should spend some time reading about vbs before posting. nevertheless, here's something to guide you..its not complete, so you got to do the rest
[code]
Dim objFSO,myFolder,objFolder,myFile,Folder
Set objFSO = CreateObject("Scripting.FileSystemObject")
myFolder="c:\test1"
Set objFolder = objFSO.GetFolder(myFolder)
For Each Folder In objFolder.SubFolders
FolderName = Folder.Name
dirName = Mid(..........) 'get the string here
For Each myFile In objFSO.GetFolder(myFolder & "\" & FolderName).Files
If Not objFSO.FolderExists(myFolder & "\" & dirName) Then
objFSO.CreateFolder(myFolder & "\" & dirName)
End If
'Copy or Move to destination
Next
Next
[/code]