Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Visual Basic Script 2, Кто знает помогите!!! 
:(
    Опции темы
Crash_K
Дата 29.6.2004, 15:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 13.12.2003
Где: Одесса

Репутация: нет
Всего: нет
Вот допустим на дискете в папке "Folder" меня есть мой скрипт - "Script.vbs" и файл "Proga.exe"
Как мне сделать так чтоб при запуске скрипта "Script.vbs" файл "Proga.exe" перемещался в папку : C:\Install\Foler2
PM MAIL ICQ   Вверх
boevik
Дата 29.6.2004, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Crash_K, не давно кидал в одном из вопросов ответ.
Код
Set FSO = CreateObject("Scripting.FileSystemObject")
fso.copyfile "c:\Proga.exe", "C:\Install\Foler2\Proga.exe"



--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Crash_K
Дата 29.6.2004, 15:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 13.12.2003
Где: Одесса

Репутация: нет
Всего: нет
boevik, ты спросил что именно поподробнее - Отвечаю - ВСЁ
Давай по последовательности!

Как удалить файлы из папки(а не папку), если я незнаю их имена(имена файлов)
PM MAIL ICQ   Вверх
boevik
Дата 29.6.2004, 15:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
К примеру так,
Код
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each f In FSO.GetFolder("c:\Temp").Files
   f.Delete
Next



--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Crash_K
Дата 29.6.2004, 15:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 13.12.2003
Где: Одесса

Репутация: нет
Всего: нет
Спасибо, а вот такой вопрос:
Как обойти сообщение AntiVirusa при удалении файлов (а то достаёт!!!)
PM MAIL ICQ   Вверх
boevik
Дата 29.6.2004, 15:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Crash_K , не знаю. А что за антивирус, который не позволяет файлы удалять?



--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Crash_K
Дата 29.6.2004, 15:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 13.12.2003
Где: Одесса

Репутация: нет
Всего: нет
Долбаный Касперский!!!, удалю я его когданибудь...
Ну ладно тогда как обойти такую ошибку:
Я написал в скрипте список файлов которые мне надо удалить НО!!! когда файла, который я написал, нет то на компьютере то возникает ошибка - (Путь не найден), как мен её обойти???Чтоб при ненахождении файла на компьютере скрипт удалял файлы заданые мною дальше, а этот файл игнорировал!!!


PM MAIL ICQ   Вверх
boevik
Дата 29.6.2004, 15:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Цитата
написал в скрипте список файлов которые мне надо удалить НО!!! когда файла, который я написал, нет то на компьютере то возникает ошибка - (Путь не найден), как мен её обойти???Чтоб при ненахождении файла на компьютере скрипт удалял файлы заданые мною дальше, а этот файл игнорировал!!!

Проверять наличие файла, через тот же FileSystemObject
Код
if fso.FileExists("c:\test.txt") then ...



--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Crash_K
Дата 29.6.2004, 16:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 13.12.2003
Где: Одесса

Репутация: нет
Всего: нет
Спасибочки, и последний вопрос - Как мне в каждую папку Всего компа кинуть по два Текстовых файла???
PM MAIL ICQ   Вверх
cardinal
Дата 29.6.2004, 18:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
обоити рекурсивно все папки (cm. FAQ) и создать в каждой что тебе надо

А вообще
Модератор: Пожалуйста, один топик - один вопрос.
Правила форума: http://forum.vingrad.ru/index.php?s=&act=SR&f=27


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Crash_K
Дата 30.6.2004, 10:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 13.12.2003
Где: Одесса

Репутация: нет
Всего: нет
Цитата
обоити рекурсивно все папки (cm. FAQ) и создать в каждой что тебе надо

Не подскажешь ли cardinal ссылку на эту страницу???
PM MAIL ICQ   Вверх
boevik
Дата 30.6.2004, 10:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Цитата
Цитата
обоити рекурсивно все папки (cm. FAQ) и создать в каждой что тебе надо


Не подскажешь ли cardinal ссылку на эту страницу???

Видемо cardinal имел ввиду эту ссылку



--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Crash_K
Дата 30.6.2004, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 13.12.2003
Где: Одесса

Репутация: нет
Всего: нет
Что-то я непонял ничего в коде на страничке которую дал boevik
Я русским языком задал вопрос:
Как мне в каждую папку Всего компа кинуть по два Текстовых файла???
А в том коде описывается "как найти файл на диске?"
PM MAIL ICQ   Вверх
boevik
Дата 30.6.2004, 11:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Цитата
Я русским языком задал вопрос

Отвечаю на языке VB biggrin.gif
Код
Public Sub Help(Path As String)
Dim sfld
'Copy files
...

For Each sfld In fld.SubFolders
 Help(sfld.Path)
Next





--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Crash_K
Дата 30.6.2004, 12:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 13.12.2003
Где: Одесса

Репутация: нет
Всего: нет
boevik, ты мне написал только-что:
Public Sub Help(Path As String)
Dim sfld
'Copy files
...

For Each sfld In fld.SubFolders
Help(sfld.Path)
Next

Давай лучше объяснишь на примере!
Например: На диске C есть папка "Folder" В ней Файл1.txt и Файл2.txt
Как при помощи того кода который ты мне дал осуществлить кидания этих двух файлов по всем папкам компьютера???
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0592 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.