Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Windows Новый топик    Ответить
 Перемещение каталогов/папок по дате через WSH  [new]
vtm
Member

Откуда:
Сообщений: 6
Помогите очень нужно
Есть папка upload в ней куча файлов и каталогов
Нужно файлы которые пролежали в ней 4-ре дня перемещались в папку temp
как это реализовать через wsh????
14 май 05, 19:17    [1541220]     Ответить | Цитировать Сообщить модератору
 Re: Перемещение каталогов/папок по дате через WSH  [new]
naPmu3aH
Member

Откуда: из лесу
Сообщений: 1449
Когда-то делал (вернее нашел готовый) для удаления файлов в папке старше указанной даты (если надо от сегодня - в начало впихнуть dDelDate = Date).
Заменить в нужном месте .Delete на .Move и вообще подправить под себя думаю не сложно...
   Option Explicit

   Dim oFS, sLogDir, dDelDate

   Set oFS = WScript.CreateObject("Scripting.FileSystemObject")

   sLogDir = "C:\Logs"
   dDelDate = #11/30/2000#

   Call DelOldLogs(oFS.GetFolder(sLogDir))

   MsgBox "All Done!"
   WSCript.Quit
' --------------------- '
   Sub DelOldLogs(oFolder)
     Dim oFile, oSubFolder

     For Each oFile In oFolder.Files
       On Error Resume Next
       If IsOlder(oFile, dDelDate) Then oFile.Delete
     Next
' Process any sub folders '
     For Each oSubFolder In oFolder.SubFolders
       Call DelOldLogs(oSubFolder)
     Next
   End Sub
' ---------------------
   Function IsOlder(oFile, dDelDate)
     If oFile.DateLastModified < dDelDate Then
       IsOlder = True
     Else
       IsOlder = False
     End If
End Function
--
чем дальше в лес, тем больше нас
15 май 05, 18:34    [1541923]     Ответить | Цитировать Сообщить модератору
Все форумы / Windows Ответить