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