Автор М@k(Im Лютан задал вопрос в разделе Другие языки и технологии
Скрипт Vbs и получил лучший ответ
Ответ от Просто DOCENT[гуру]
Все содержимое этой папки можно отправить в том случае, если оно (содержимое) будет запаковано в архив (хотя могу и ошибаться, ведь не программист я)
По отдельности надо конкретно путь до каждого файла показывать, с его именем.
Перед выполнением скрипта отправки на мыло я делал батник для упаковки файлов находящихся в папке в архив и после окончания архивации этот батник и запускал скрипт vbs. Хотя может архивацию файлов можно произвести то-же vbs скриптом, но я не программист и мне было удобнее делать определенные действия батником и затем отправлять на мыло vbsкой
Небольшой пример
on error resume next
Set S = CreateObject("Wscript.Shell")
s.run "L:1.bat",0
wscript.sleep("5000")
set FSO=createobject("scripting.filesystemobject")
Call SendPost("smtp.mail.ru","кому@mail.ru","откуда@mail.ru","ТЕМА","ТЕКСТ")
Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,strBody)
Set iMsg=CreateObject("CDO.Message")
Set iConf=CreateObject("CDO.Configuration")
Set Flds=iConf.Fields
Flds.Item("")=2
Flds.Item("")=1
Flds.Item("")="откуда@mail.ru"
Flds.Item("")="пароль откуда"
Flds.Item("")="smtp.mail.ru"
Flds.Item("")=25
Flds.Update
iMsg.Configuration=iConf
iMsg.To=strTo
iMsg.From=strFrom
iMsg.Subject=strSubject
iMsg.TextBody=strBody
iMsg.AddAttachment " L:1.rar"
iMsg.Send
End Function
Set iMsg=Nothing
Set iConf=Nothing
Set Flds=Nothing
s.run "L:1.bat",0 - запуск батника который будет архивировать файлы
wscript.sleep("5000") - задержка выполнения скрипта в 5 секунд - для архивации мало надо делать больше или прописывать что-бы скрипт ждал окончание работы батника
iMsg.AddAttachment " L:1.rar" - отправляем архив который создал батник
как запустить файл .bat в невидимом режиме через VBScript? напишите содержание файла VBS
Представьте себе: чел ишёт на сайте ответ на такой же вопрос. Находит. И что он видит:
подробнее...
Запуск скрипта VBS
Программ две: wscript и cscript, насколько я помню. Последний для выполнения скриптов WSH в
подробнее...
как в опере создать ярлык сайта на рабочем столе?
«Иконку страницы в адресной строке, можно перетащить на рабочий стол. Это создаст ярлык на
подробнее...
Как проверить образ вин 7 оригинальный или нет?
Этот код ничего НЕ ДАЁТ. Смотри КОД АКТИВАЦИИ через скрипт или при помощи ,скопируй ключ..
А
подробнее...
Как можно создать генератор слов и фраз с простым языком програмирования?
создать массив из слов и генератором случайных чисел выдергивать слова.
Андрей
подробнее...
Что за расширение vbs?
VBS (от анг. Visual Basic Script) это язык для написания скриптов, позволяющий без особых усилий
подробнее...
Как в VBS задать время во сколько вылезет сообщение?
Задержка выполнения программы: WScript.Sleep N, где N − число миллисекунд задержки ( 1 =
подробнее...
Народ подскажите! чем отличаются VBA и VBS 🙂
Visual Basic Application (VBA)
входит в состав Excel, Word, Access, MS Outlook, Power Point,
подробнее...
Как вставить .VBS сценарий в .EXE?
так что же нужно, что главное?
- объединить функции ВБС и программы в едином ехе файле
подробнее...
как запустить vbs скрипт на компьютере?
запускаешь имеющийся вайл *.vbs двойным кликом и
подробнее...
Компилировать .vbs в .exe
Сделайте так:
1. Создаете батник с таким текстом:
@echo off
cscript script.vbs
подробнее...
как запустить несколько циклов do loop одновременно vbs
VBS - язык скриптовый, то есть, по умолчанию с весьма урезанными возможностями, в частности, по
подробнее...