scuadro
|
 Posted: Sat Jul 02, 2011 02:21 Post subject: Прошу помощи разобраться со скриптом... |
 |
|
Есть скрипт. Но он почему-то меняет регистры букв в произвольном порядке. Как от этого избавится? Надо сделать так, чтобы скрипт брал название файла, создавал одноименную папку и соответственно перемещал туда этот файл. Что нужно поправить в скрипте? Я совершенно не понимаю в этом. Пытался запустить вот этот скрипт ... ни получается. Пишет какие-то ошибки.
Мой позаимствованный скрипт...
| Code: | strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Drive = 'D:' and Path = '\\HDTVRip Video\\Смотрел\\'")
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 |
Пожалуйста помогите разобраться. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
