Выбор файлов по части имени и их отправка на разные e-mail

@Ivan__k · Регистрация: 06.09.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте! Нужна помощь.
Есть папка с файлами :
667123-4012971020-2015-09-04-09-54-59.wav
667123-4012701060-2015-09-04-10-21-55.wav
667123-4012701060-2015-09-04-10-22-17.wav
667123-4012715000-2015-09-04-10-39-45.wav
989199-4012701060-2015-09-03-16-27.wav
989199-4012701060-2015-09-03-17-53.wav
989199-4012701060-2015-09-03-16-24.gsm
989199-4012701060-2015-09-03-19-53-out.wav
989199-4012701060-2015-09-03-19-53-in.wav
.....и т.д.

Нужно выбрать файлы по первым 6 символам, отправить на разные почты и удалять их после отправки.
Есть скрипт который выбирает фалы из папки и отправляет их на один ящик.

Javascript

var fpt = 'c:\\test\\',
    frm = '\n\n',                                                 // разделитель
    fso = new ActiveXObject ('Scripting.FileSystemObject'),
    fld = fso.GetFolder (fpt),
    arr = new Array (),
    ind = 0,
    fil = new Enumerator (fld.files);
for (; !fil.atEnd (); fil.moveNext ())
   arr [ind++] = fil.item ().name;
arr.sort (function (x, y) {return (x.split (frm) [1] - y.split (frm) [1])});
 
for (var i = 0; i < ind; i++){
var Email = WScript.CreateObject("CDO.Message");
Email.From = "voice.message@mail.ru";
Email.To = "poli4atel@gmail.com";   
Email.Subject = "Voice message";
Email.Bodypart.Charset = "utf-8";
Email.Textbody = "Voice message";
Email.AddAttachment (fpt+arr[i]);
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2; 
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1;
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "voice.message@mail.ru";
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXXXXXXX";
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.ru";
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25;
Email.Configuration.Fields.Update();
Email.Send();
fso.DeleteFile (fpt+arr[i]);
}

Не могу сделать выборкупо имени фалов. Подскажите как это сделать?

Добавлено через 15 часов 2 минуты
Вопрос решен, таким образом:

Javascript

if ((arr[i]. substr(0,6)) == 667123) {
Email.To = "test1@mail.ru";
} else if ((arr[i]. substr(0,6)) == 989199){
Email.To = "test2@gmail.com";
} else
Email.To = "test3@yandex.ru";

	07.09.2015, 12:16

Опции темы