HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Как сделать чтобы vbs копировал сам себя?
  #1  
Старый 07.06.2010, 06:50
FullCrazy
Новичок
Регистрация: 04.06.2010
Сообщений: 4
С нами: 8388484

Репутация: 0
Exclamation Как сделать чтобы vbs копировал сам себя?

Мне нужно чтобы vbs копировал себя в указанную мной директорию, Но при условии того что я не знаю в какой дериктории лежит данный vbs у запускающего его юзера!
Как такое осуществить????
 
Ответить с цитированием

  #2  
Старый 07.06.2010, 07:34
POS_troi
Познавший АНТИЧАТ
Регистрация: 01.12.2006
Сообщений: 1,769
С нами: 10233548

Репутация: 1118


По умолчанию

Код:
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile ".\script.vbs" , ".\newCopyScript.vbs", OverwriteExisting
Так не?
 
Ответить с цитированием

  #3  
Старый 07.06.2010, 08:03
FullCrazy
Новичок
Регистрация: 04.06.2010
Сообщений: 4
С нами: 8388484

Репутация: 0
По умолчанию

Цитата:
Сообщение от POS_troi  
Код:
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile ".\script.vbs" , ".\newCopyScript.vbs", OverwriteExisting
Так не?
Я же говорю что не знаю в какой директории находится вбска у человека который её будет запускать!
 
Ответить с цитированием

  #4  
Старый 07.06.2010, 08:25
POS_troi
Познавший АНТИЧАТ
Регистрация: 01.12.2006
Сообщений: 1,769
С нами: 10233548

Репутация: 1118


По умолчанию

ну вообщето ".\" указывает на текущую директорию

Ща Боб рассудит =)
 
Ответить с цитированием

  #5  
Старый 07.06.2010, 08:26
SpangeBoB
Познавший АНТИЧАТ
Регистрация: 12.07.2008
Сообщений: 1,705
С нами: 9384806

Репутация: 1350


По умолчанию

Как копировать выше,путь к сприкту:
Wscript.Echo Wscript.ScriptFullName
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Delphi]/[Pascal] Задай вопрос, получи ответ Isis С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 6762 17.06.2010 21:23
Юмор. Анекдоты, смешные рассказы/логи. Mobile Болталка 1356 16.06.2010 16:46
Помогите найти историю GrimmJow Болталка 11 05.04.2010 21:34
Мой ржачный разговор в аське с кем-то вроде как с античата, как я подумал Дрэгги Болталка 21 22.07.2007 12:33



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.