[решено] Создание папок с именем файла и перемещение

[SySTek]

День добрый!

Есть папка, в которой лежат файлы 001.pdf, 002.pdf и т.д. нужен скрипт для создания папок с именем файлов и переносом последних в эти папки.

Я написал скрипт на vbs, но для одного конкретного файла:

============================================

Set FSO = CreateObject ("Scripting.FileSystemObject")

If not fso.folderexists ("880") then
fso.createfolder ("880")
end if

Set file = FSO.getfile ("c:\pdf\script\880,00.pdf")
file.move ("c:\pdf\script\880\880,00.pdf")

=============================================

у меня несколько вопросов:

1. как это сделать для "n" файлов?
2. В 7 и 8 строке мне нужно заменить конкретный путь к файлу на текущую директорию
(ну чтобы каждый раз не редактировать скрипт под конкретную папку. просто скопировать скрипт в нужную папку и выполнить )

Спасибо!

[Ivan Bardeen]

Вот, VBS скрипт для файлов папки c:\pdf\script\

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Drive = 'C:' and Path = '\\pdf\\script\\'")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

For Each objFile in colFiles
If Not fso.FolderExists(objFile.Path & objFile.FileName) Then
fso.CreateFolder objFile.Path & objFile.FileName
fso.MoveFile objFile.Name, objFile.Path & objFile.FileName & "\" & objFile.FileName & "." & objFile.Extension
End If
Next

[SySTek]

Большое спасибо Ivan Bardeen