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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

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

День добрый!

Есть папка, в которой лежат файлы 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 строке мне нужно заменить конкретный путь к файлу на текущую директорию
(ну чтобы каждый раз не редактировать скрипт под конкретную папку. просто скопировать скрипт в нужную папку и выполнить )

Спасибо!

Вот, 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

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