Batya
|
 Posted: Mon Nov 21, 2005 19:51 Post subject: |
 |
|
Готово:
| Code: |
'================================================================================
' Переименование файлов в указанном каталоге с заданной периодичностью
' К имени файла добавляется приставка - имя родительского каталога
' Поодерживается двойное вложение подкаталогов
'================================================================================
Dim Mydir, Mysleep, Delimiter, MyKey
'========== Изменяемые параметры ================================================
Mydir = "E:\PAGE STORE\" 'Сканируемый каталог
Delimiter = "_" 'Разделитель после приставки
Mysleep = 10000 'Пауза между сканированием в милисекундах
MyKey = "HKCU\Environment\RunningMyScript" 'Ключ в реестре
NotInProc = Array("Temp", "HighRes", "LowRes", "Quest") 'Папки не обрабатываются
'================================================================================
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, Scan4Not, Pos4Not
MykeyValue = True
WshShell.RegWrite MyKey, MykeyValue
Do While MykeyValue
MySubFolders = ""
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
For Each Scan4Not in NotInProc
Pos4Not = InStr(MySubFolders & chr(13), "\" & Scan4Not & chr(13))
If Pos4Not > 0 Then
MySubFolders = Mid(MySubFolders, 1, Pos4Not - Len(Mydir) - 1) & Mid(MySubFolders, Pos4Not + Len(Scan4Not) + 1)
End If
Next
MySubFolders = Split(Mid(MySubFolders, 2), 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
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
