Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Очистить->Скопировать->Распаковать на VBS

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

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
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Очистить->Скопировать->Распаковать на VBS


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru