Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - ASP и VBScript

Страница: 1 | 2 | 3 |

 

  Вопрос: Нужна помощь в написании скрипта VBS Добавлено: 21.03.11 00:47  

Автор вопроса:  Влерий

Ответить

  Ответы Всего ответов: 35  

Номер ответа: 31
Автор ответа:
 Влерий



Вопросов: 1
Ответов: 24
  Профиль | | #31 Добавлено: 22.03.11 13:38
всё разобрался на счет копирования файлов

Ответить

Номер ответа: 32
Автор ответа:
 Влерий



Вопросов: 1
Ответов: 24
  Профиль | | #32 Добавлено: 22.03.11 14:13
Или допустим папку надо будет скопировать.

Ответить

Номер ответа: 33
Автор ответа:
 Влерий



Вопросов: 1
Ответов: 24
  Профиль | | #33 Добавлено: 22.03.11 15:42
И можно что бы он конечную папку архивировал

Ответить

Номер ответа: 34
Автор ответа:
 Влерий



Вопросов: 1
Ответов: 24
  Профиль | | #34 Добавлено: 22.03.11 16:53
со всем разобрался только один вопрос как скрыть процессы
что бы не выдавал окно с процессом копирование
что бы делал всё в тихом режиме

Ответить

Номер ответа: 35
Автор ответа:
 Влерий



Вопросов: 1
Ответов: 24
  Профиль | | #35 Добавлено: 22.03.11 18:07
  1.  
  2. Const ForReading = 1, ForWriting = 2, ForAppending = 8
  3.  
  4. Dim MySource, MyTarget, MyZipName, MyHex, MyBinary, i
  5. Dim oShell, oApp, oFolder, oCTF, oFile
  6. Dim oFileSys
  7.  
  8.  
  9.  
  10. sDestPath = Left(WScript.ScriptFullName, (Len(WScript.ScriptFullName)) - (Len(WScript.ScriptName)))
  11. MySource = sDestPath & "То что надо" & "\"
  12. MyTarget = sDestPath & "То что надо" & ".zip"
  13.  
  14.  
  15. MyHex = Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
  16.  
  17. For i = 0 To UBound(MyHex)
  18. MyBinary = MyBinary & Chr(MyHex(i))
  19. Next
  20.  
  21. Set oShell = CreateObject("WScript.Shell")
  22. Set oFileSys = CreateObject("Scripting.FileSystemObject")
  23.  
  24.  
  25. Set oCTF = oFileSys.CreateTextFile(MyTarget, True)
  26. oCTF.Write MyBinary
  27. oCTF.Close
  28. Set oCTF = Nothing
  29.  
  30. Set oApp = CreateObject("Shell.Application")
  31.  
  32. Set oFolder = oApp.NameSpace(MySource)
  33. If Not oFolder Is Nothing Then
  34. oApp.NameSpace(MyTarget).CopyHere oFolder.Items
  35.  
  36. End If
  37.  
  38. wScript.Sleep(5000)
  39.  
  40.  
  41. Set oFile = Nothing
  42. On Error Resume Next
  43. Do While (oFile Is Nothing)
  44.  
  45. Set oFile = oFileSys.OpenTextFile(MyTarget, ForAppending, False)
  46. If Err.number <> 0 then
  47. Err.Clear
  48. wScript.Sleep 3000
  49. End If
  50. Loop
  51.  
  52. Set oFile=Nothing
  53. Set oFileSys=Nothing



Как добавить еще один путь копирования? например D:\xxx\yyy.zip

Ответить

Страница: 1 | 2 | 3 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам