Batya
|
 Posted: Mon Nov 21, 2005 15:57 Post subject: |
 |
|
Готово.
Создай файл *.vbs с содержимым:
| Code: |
'======================================================================
' Переименование файлов в указанном каталоге с заданной периодичностью
' К имени файла добавляется приставка - имя родительского каталога
' Поддерживается двойное вложение подкаталогов
'======================================================================
Dim Mydir, Mysleep, Delimiter, MyKey
'========== Изменяемые параметры =======================================
Mydir = "E:\PAGE STORE\" 'Сканируемый каталог
Delimiter = "_" 'Разделитель после приставки
Mysleep = 10000 'Пауза между сканированием в миллисекундах
MyKey = "HKCU\Environment\RunningMyScript" 'Ключ в реестре
'=======================================================================
Dim FSO, WshShell, MyFolder, MyFolder1
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set MyFolder = FSO.GetFolder(Mydir)
Dim MykeyValue, MyDirName, ScanFile, ScanFileName, NameLen, MySubFolders, i
MykeyValue = True
WshShell.RegWrite MyKey, MykeyValue
Do While MykeyValue
MySubFolders = MyDir
For Each ScanFolder in MyFolder.SubFolders
MySubFolders = MySubFolders & chr(13) & FSO.GetFolder(ScanFolder).Path
For Each ScanFolder1 in ScanFolder.SubFolders
MySubFolders = MySubFolders & chr(13) & FSO.GetFolder(ScanFolder1).Path
Next
Next
MySubFolders = Split(MySubFolders, chr(13))
For Each ScanFolder in MySubFolders
Set MyFolder1 = FSO.GetFolder(ScanFolder)
MyDirName = MyFolder1.Name
NameLen = Len(MyDirName)
For Each ScanFile in MyFolder1.Files
ScanFileName = FSO.GetFile(ScanFile).Name
If Left(ScanFileName, NameLen) <> MyDirName Then
FSO.MoveFile ScanFile, MyFolder1.Path & "\" & MyDirName & Delimiter & ScanFileName
End If
Next
Next
MykeyValue = WshShell.RegRead(MyKey)
Wscript.Sleep Mysleep
Loop
WshShell.RegDelete MyKey
Set FSO = Nothing
Set WshShell = Nothing
Set MyFolder = Nothing
Set MyFolder1 = Nothing
WScript.Quit
|
Этот файл будет висеть в памяти и сканировать папки с интервалом 10 сек. Чтобы корректно прервать его работу, необходимо запустить другой файл *.vbs с содержимым:
| Code: | WScript.CreateObject("WScript.Shell").RegWrite "HKCU\Environment\RunningMyScript", "False" |
Надеюсь, понятно, что критерием остановки первого скрипта будет значение False в указанном ключе реестра (это значение заносит второй скрипт). |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
