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

[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