/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 737
от 24.03.2008, 18:05

Вопрос № 128.054

Подскажите пожайлуста как будет выглядеть скрипт(простой батничек) для копирования папки с файлами на указанное место. Например надо скопировать папку с данными с пути C:Новая папка в диск G: и чтобы на экран процесс копирования не выводился. И если можно то сделать так чтобы если вдруг скрипт был запущен второй раз и будет производиться вторая попытка копирования файлов то те которые были скопированы будут просто замещены. Заранее спасибо за ответ!!!

Отправлен: 19.03.2008, 09:27 Вопрос задал: DimentiY (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 10)

Отвечает: Павленко Александр Геннадьевич Здравствуйте, DimentiY! Вот код, однако консоль копирования все равно будет видна. Приложение: md G:/papka copy /Y C:/papka/*.* G:/papka

Ответ отправил: Павленко Александр Геннадьевич (статус: 1-ый класс) Ответ отправлен: 19.03.2008, 10:34

Отвечает: megaloman Здравствуйте, DimentiY! xcopy C:Otkuda*.* D:Kuda /s /y Копируем директорию с поддиректориями. Смотрите xcopy /? -там подробно все параметры. Окно будет видно. Или скрипт: var FSO=WScript.CreateObject("Scripting.FileSystemObject"); FSO.CopyFolder("F:\Tralala","H:\Kuku",true) В блокноте вставьте эти две строки, сохраните в файл с расширением .js, например ffffff.js Ничего на экране видно не будет Внимание: в путях каждый слэж заменяется на 2 слэжа \ Запускайте как обычный исполнимый файл --------- Нет времени на медленные танцы

Ответ отправил: megaloman (статус: Студент) Ответ отправлен: 19.03.2008, 12:59 Оценка за ответ: 5 Комментарий оценки: Супер спасибо!!!

Отвечает: Черников Игорь Владимирович Здравствуйте, DimentiY! "Батнички" пишутся простым текстовым редактором, поддерживающим кодировку DOS иначе каманды, содержащие русские буквы выполняться не будут. Создайте текстовый файл, впишите туда команды, сохраните файл, закройте и смените его расширение с *.txt на *.bat Ваша строка будет выгдядеть примерно так: xcopy "c:Новая папка" "g:Новая папка" /s /c /i /q /y кавычки ставятся, если в названии пути или файла имеются пробелы. В приложении(если неодходимо) можете выбрать любой параметр и добавить (или удалить) его в свою строку. Удачи! Приложение: ХСОРУ source [destination] [/A | /M] [/D[:date]] [/P] [/S [/E]] [/U] [/W] [/C] [/I] [/Q] [/Fl [/L] [/G] [/H] [/R] [/T] [/U] [/K] [/N] [/0] [/X] [/Y] [/-Y] [/Z] [/EXCLUDED: file1[+f ile2][+f ile3]... ] source - Указывает Файл для копирования. destination - Указывает размещение и имя новых файлов. /А - Копирует Файлы только с атрибутом "Архивный", при этом значение атрибута не изменяется. /М - Копирует Файлы только с атрибутом "Архивный", при этом атрибут "Архивный" отключается. /D:m-d-у - Копирует Файлы, измененные либо в указанный день, либо после. Если дата не указана, копируются только те Файлы, которые новее в исходной папке. /EXCLUDE:filel[+file2 3[+file3]... Указывает список Файлов, содержащих строки. Каждая строка должна находиться в отдельной линии в Файлах. Если одна из строк совпадает с любой частью абсолютного пути копируемого Файла, то такой файл копироваться не будет. Например, указывание таких строк, как \obj\ или .obj, исключает из копирования все Файлы в папке obj и, соответственно, все Файлы с расширением *.obj. /Р - Запрашивает, прежде чем создать конечный Файл. /S - Копирует все папки и подпапки, кроме пустых. /Е - Копирует все папки и подпапки, включая пустые. То же самое, что и /S /Е. Можно использовать для изменения /Т. /U - Проверяет каждый новый Файл. /W - Запрашивает нажатие клавиши, прежде чем начать копирование. /С - Продолжает копирование, даже если произошла ошибка. /I - Если конечная папка не существует и копируется более одного файла, подразумевается, что местом назначения должна быть папка. /Q - Не отображает имена Файлов во время копирования. /F - Отображает имена исходных и конечных Файлов во время копирования /L - Отображает Файлы, которые будут скопированы. /G - Разрешает копирование шифрованных Файлов в конечную папку, не поддерживающую шифрование. /Н - Копирует скрытые и системные Файлы. /R - Заменяет Файлы, доступные только для чтения. /Т - Создает структуру папок, но не копирует Файлы. Не поддерживает пустые папки и подпапки. Сочетание /Т /Е поддерживает пустые папки и подпапки. /U - Копирует только Файлы, которые уже существуют в конечной папке. /К - Копирует атрибуты. Простая команда Хсору сбрасывает атрибут "Только чтение". /N - Копирует с использованием сгенерированных коротких имен. /0 - Копирует права владельца Файлом и сведения таблицы управления доступом <ACL>. /X - Копирует параметры аудита Файла (включает действие /0). /Y - Подавляет запрос на подтверждение перезаписи существующего конечного Файла. /—У - Вызывает запрос на подтверждение перезаписи существующего конечного файла. /Z - Копирует сетевые Файлы с возобновлением. Параметр /V можно установить через переменную среды C0PYCMD. Параметр /—У командной строки переопределяет такую установку. --------- От каждого по способностям, каждому по труду

Ответ отправил: Черников Игорь Владимирович (статус: 8-ой класс) Ответ отправлен: 19.03.2008, 18:22

Вопрос № 128.109

Добрый день! Необходим элемент "Календарь", я что-то его не нашел. Т.е. буквально хочу следующее: при нажатии на некоторую кнопку должен вываливаться календарик с активной текущей датой, а у нем уже путем перемещения по годам и месяцам пользователь должен выбрать нужную ему дату. В общем ничего ного - в делфях такая штука помоему сразу поставляется, а вот в VB6 я не нашел. Ну и соответственно - методы и свойства этого элемента. Заранее благодарен.

Отправлен: 19.03.2008, 13:46 Вопрос задал: Andrey_K (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Коровин Александр Здравствуйте, Andrey_K! Чтобы пользоваться этим контроллом ("DateTimePicker") наобходимо подключить группу контроллов MSCOMCT2.OCX (на панели с контроллами правый клик - Components - поставить галочку против Microsoft Windows Common Controls-2 6.0 (SP4)). Появится на панели нужный Вам, и еще несколько полезных. Удачи!

Ответ отправил: Коровин Александр (статус: 3-ий класс) Ответ отправлен: 19.03.2008, 14:23 Оценка за ответ: 5 Комментарий оценки: В принципе то что надо.

Отвечает: Черников Игорь Владимирович Здравствуйте, Andrey_K! Он называется MonthView Microsoft Windows Common Controls-2 6.0 (SP4) расположен: C:WINDOWSsystem32VSFLEX3.OCX Если у Вас нет, возьмите здесь: http://rusfaq.ru/upload/318 Удачи! --------- От каждого по способностям, каждому по труду

Ответ отправил: Черников Игорь Владимирович (статус: 8-ой класс) Ответ отправлен: 19.03.2008, 18:37

Вопрос № 128.130

Добрый день, уважаемые Эксперты! подскажите , пожалуйста, как в цикле проделать следующую поцедуру вычитания например, на одном листе расположены данные А В С D 10 11 8 15 12 15 5 7 8 12 17 3 а на другом лесте надо сформировать таблицу В1-А1 С1-A1 D1-A1 В2-А2 С2-A2 D2-A2 В3-А3 С3-A3 D3-A3 Заранее, большое Вам спасибо!

Отправлен: 19.03.2008, 15:22 Вопрос задала: Шубейко Маргарита (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: megaloman Здравствуйте, Шубейко! Если исходные данные расположены на Лист1 и существует Лист2, то решение в приложении Приложение: Sheets("Лист1").Select For i = 1 To 3 For j = 1 To 3 Sheets("Лист2").Range("a1").Offset(j - 1, i - 1) = Range("b1").Offset(j - 1, i - 1) - Range("a1").Offset(j - 1, 0) Next Next Sheets("Лист2").Select --------- Нет времени на медленные танцы

Ответ отправил: megaloman (статус: Студент) Ответ отправлен: 19.03.2008, 16:03 Оценка за ответ: 5 Комментарий оценки: Большое спасибо за элегантную программу!!!

Отвечает: Черников Игорь Владимирович Здравствуйте, Шубейко! Исходные данные должны находиться в "Лист1", ответы будут формироваться в "Лист2" For i = 1 To 3 For j = 1 To 3 Лист2.Cells(i, j) = Лист1.Cells(i, j + 1) - Лист1.Cells(i, 1) Next j Next i Удачи! --------- От каждого по способностям, каждому по труду

Ответ отправил: Черников Игорь Владимирович (статус: 8-ой класс) Ответ отправлен: 19.03.2008, 19:59 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо! очень красивый цикл!!!

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.72.6 beta от 22.03.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru