[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