slep6008
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Нужно чтобы отрабатывал скрипт на server 2008R2 Очистить->Скопировать->Распаковать не работает модуль распаковки на 2008R2 x64 На XP Sp3 работает. Может ли всезнающий All подсказать где собака зарыта ? тело скрипта____________________________________________________ ' модуль очистки каталога от папок и файлов перед помещением туда информации___________ Main Sub Main Dim oFSO Dim sDirectoryPath Dim oFolder Dim oDelFolder Dim oFileCollection Dim oFile Dim oFolderCollection Set oFSO = CreateObject("Scripting.FileSystemObject") sDirectoryPath = "d:\temp\1\" set oFolder = oFSO.GetFolder(sDirectoryPath) set oFolderCollection = oFolder.SubFolders set oFileCollection = oFolder.Files For each oFile in oFileCollection oFile.Delete(True) Next For each oDelFolder in oFolderCollection oDelFolder.Delete(True) Next Set oFSO = Nothing Set oFolder = Nothing Set oFileCollection = Nothing Set oFile = Nothing End Sub ' модуль копирования файлов датированных вчерашним числом____________________________ Dim objFSO, objFile Dim strSRCFolder, strDSTFolder strSRCFolder = "\\server\" ' папка источник strDSTFolder = "d:\temp\1\" ' папка приемник Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") if objFSO.FolderExists(strSRCFolder) Then if objFSO.FolderExists(strDSTFolder) Then For Each objFile In objFSO.GetFolder(strSRCFolder).Files if DateDiff("D", objFile.DateLastModified, Now) = 1 Then objFile.Copy strDSTFolder & "\" End If Next Else Wscript.Echo "strDSTFolder: " & strDSTFolder & " не существует!" End If Else Wscript.Echo "strSRCFolder: " & strSRCFolder & " не существует!" End If 'модуль распаковки___________________________________________________________________ Set ShellApp = CreateObject("Shell.Application") Set objTMPFolder = ShellApp.NameSpace("d:\temp\3\") 'временная папка' Set objDestFolder = ShellApp.NameSpace("d:\temp\1\") 'папка приёмник' Set objFolder = ShellApp.NameSpace("d:\temp\1\") 'папка источник с zip файлами' Set objFolderItems = objFolder.Items() objFolderItems.Filter 64,"*.zip" For Each f In objFolderItems Set objSrcFolder = ShellApp.NameSpace(f) objTMPFolder.CopyHere objSrcFolder.Items 'распаковка во временную папку' Next objDestFolder.MoveHere objTMPFolder.Items,4+16 'бесшумное перемещение в основную папку' Wscript.Quit 0 | Всего записей: 30 | Зарегистр. 18-05-2009 | Отправлено: 13:36 05-02-2015 | Исправлено: slep6008, 14:23 09-02-2015 |
|