Модераторы: 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   Вверх
Crash_K
Дата 30.6.2004, 16:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Большое всем спасибо!!!
PM MAIL ICQ   Вверх
MegaByte
Дата 20.6.2005, 10:48 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Помогите!!! Это осчень срочно... Компилирую прогу, написанную на VB5... Стоит ХР. Прога работает ОК.
Запускаю ее под win9х, объект календарь 8.0 отображается криво, но работает ОК. Что сделать, чтобы он отображался нормально под win9x???
  Вверх
Voldemar2004
Дата 20.6.2005, 11:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23
Цитата(MegaByte @ 20.6.2005, 10:48)
Помогите!!! Это осчень срочно... Компилирую прогу, написанную на VB5... Стоит ХР. Прога работает ОК.
Запускаю ее под win9х, объект календарь 8.0 отображается криво, но работает ОК. Что сделать, чтобы он отображался нормально под win9x???


Вообще-то MegaByte - ты откуда сюда пришел-то? Тема номера другая немножко ИМХО...


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

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

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


 




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


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

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