Серый форум — VBS: обход папок с выводом сообщения о новых файлах

Re: VBS: обход папок с выводом сообщения о новых файлах

null@example.com (alexii) — Thu, 22 Sep 2011 13:44:40 +0000

Jango, приведите код создания и проверки. И что значит:

при проверке выдаёт что не поддерживается DateLastModified

Если это ошибка, то: #4.12.

Re: VBS: обход папок с выводом сообщения о новых файлах

null@example.com (Jango) — Thu, 22 Sep 2011 13:34:13 +0000

создаю файл

 Set signalFile = objFSO.CreateTextFile("C:\newfiles\sf.txt")

но потом при проверке выдаёт что не поддерживается DateLastModified

Re: VBS: обход папок с выводом сообщения о новых файлах

null@example.com (Rumata) — Thu, 22 Sep 2011 11:50:04 +0000

Создавайте флаговый файл и ищите файлы, время создания/модификации которых позднее даты создания флагового файла.

Re: VBS: обход папок с выводом сообщения о новых файлах

null@example.com (Jango) — Thu, 22 Sep 2011 11:35:17 +0000

Что-то вроде: проверил скрипт папки и записал куда-нибудь список файлов с датами изменения, потом на следующий запуск сверился с этим списком и сообщил, были ли изменения.

Re: VBS: обход папок с выводом сообщения о новых файлах

null@example.com (alexii) — Thu, 22 Sep 2011 10:41:51 +0000

Jango пишет:

Как бы теперь прикрутить проверку с последнего запуска скрипта...

Поясните.

Re: VBS: обход папок с выводом сообщения о новых файлах

null@example.com (Jango) — Thu, 22 Sep 2011 08:06:04 +0000

Как бы теперь прикрутить проверку с последнего запуска скрипта...

Re: VBS: обход папок с выводом сообщения о новых файлах

null@example.com (Jango) — Wed, 31 Aug 2011 11:10:29 +0000

alexii пишет:

Jango, зачем «.ShortName»?

Ага, это я уже понял и поменял на просто .Name

Re: VBS: обход папок с выводом сообщения о новых файлах

null@example.com (alexii) — Wed, 31 Aug 2011 03:45:24 +0000

Jango, зачем «.ShortName»?

Re: VBS: обход папок с выводом сообщения о новых файлах

null@example.com (Jango) — Tue, 30 Aug 2011 07:23:12 +0000

Собрал скрипт, создающий ярлыки на изменившиеся файлы за сутки:

Dim strFolder, dstFolder, File, objFSO, objFolder, WSHShell
  
 strFolder = "S:\sheff"
 dstFolder = "C:\newfiles"
  
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set WSHShell = WScript.CreateObject("WScript.Shell")
 Set objFolder = objFSO.GetFolder(strFolder) 
 Set colFiles = objFolder.Files 
 For Each objFile In colFiles 
   File = objFile.ShortName 
   Doit File 
 Next 
  
 ShowSubFolders(objFolder) 
 Sub ShowSubFolders(objFolder) 
   Set colFolders = objFolder.SubFolders 
   For Each objSubFolder In colFolders 
        Set colFiles = objSubFolder.Files 
     For Each objFile In colFiles 
         File = objFile.ShortName 
             Doit File 
     Next 
    ShowSubFolders(objSubFolder) 
   Next 
 End Sub 
  
 Function Doit(File)
     If (Now - objFile.DateLastModified) < 2 Then
              Set MyShortcut = WSHShell.CreateShortcut(dstFolder & "\" & File & ".lnk")
              MyShortcut.TargetPath = objFile
              MyShortcut.WorkingDirectory = objFolder
              MyShortcut.WindowStyle = 4
              MyShortcut.Save
     End If
 End Function

но
он выдает ошибку после всех действий и имена ярлыков получаются кракозябрами

UPD: с ошибкой разобрался, теперь нужно разобраться с именем ярлыка, как-то иначе получать имя файла в File здесь Set MyShortcut = WSHShell.CreateShortcut(dstFolder & "\" & File & ".lnk")

Re: VBS: обход папок с выводом сообщения о новых файлах

null@example.com (dab00) — Mon, 22 Aug 2011 10:29:36 +0000

Jango пишет:

Всем привет.
Такая задача:

Курите FileSystemObject.
Таким образом:

Set fso = CreateObject("Scripting.FileSystemObject")
startFolder = "Z:\temp\" ' Ваш каталог
OlderThanDate = DateAdd("d", -7, Date) ' дата, старше которой необходимо удалять
If fso.FolderExists (startFolder) Then DeleteOldFiles startFolder, OlderThanDate
 
Function DeleteOldFiles(folderName, BeforeDate)
    Dim folder, file, fileCollection, folderCollection, subFolder    
    Set folder = fso.GetFolder(folderName)
    Set fileCollection = folder.Files
    For Each file In fileCollection
        If file.DateLastModified < BeforeDate Then
            fso.DeleteFile file.Path, True
        End If
    Next 
    Set folderCollection = folder.SubFolders
    For Each subFolder In folderCollection
       DeleteOldFiles subFolder.Path, BeforeDate
       If subFolder.Size = 0 Then subFolder.Delete True
    Next
End Function

удалял файлы старше 7 дней из темпового каталога на серваке.
Отсюда можно слепить решение Вашей задачи.

VBS: обход папок с выводом сообщения о новых файлах

null@example.com (Jango) — Mon, 22 Aug 2011 10:02:26 +0000

Всем привет.
Такая задача: есть каталог с подкаталогами, вложенностью до 10, нужно сделать обход по всем каталогам-подкаталогам с выводом списка новых/изменившихся файлов или выводом ярлыков этих файлов в папку на рабочем столе.
Спасибо.