[Iska]

Как можно заменить символы в переменной? Вот пример: »

Код:

a = "hello"
a = Replace(a, "l", "0")
WScript.Echo a

И ещё, можно ли написать дату в переменной в формате 2017-12-04 ? »

Код:

dtDate = Now()
WScript.Echo CStr(Year(dtDate)) & "-" & Right("00" & CStr(Month(dtDate)), 2) & "-" & Right("00" & CStr(Day(dtDate)), 2)

[ymo_4@vk]

Спасибо.
Можете объяснить вот этот код

dtDate = Now() WScript.Echo CStr(Year(dtDate)) & "-" & Right("00" & CStr(Month(dtDate)), 2) & "-" & Right("00" & CStr(Day(dtDate)), 2) »

и эту дату можно сделать в переменную?

[Iska]

Можете объяснить вот этот код »

Можно. Но лучше Вы загрузите себе справку по WSH и посмотрите сами. Потом, если что будет неясно — спросите.

и эту дату можно сделать в переменную? »

Можно. Только имейте в виду, это не дата, а строка.

Код:

dtDate = Now()
strSomeVar = CStr(Year(dtDate)) & "-" & Right("00" & CStr(Month(dtDate)), 2) & "-" & Right("00" & CStr(Day(dtDate)), 2)

[ymo_4@vk]

Можно. Только имейте в виду, это не дата, а строка. »

Мне нужно именно дата (2017-12-04) а пишется дата и время.
И вместо знака "-" ставится ".".

[Iska]

ymo_4@vk, покажите Ваш код — где и что «пишется» и «ставится».

[ymo_4@vk]

покажите Ваш код — где и что «пишется» и «ставится». »

Код:

Option Explicit

Const cdoSendUsingPort = 2
Const cdoBasic = 1

Const strConstPartOfSchema = "http://schemas.microsoft.com/cdo/configuration/"


Dim strSourceFile
Dim strContent
Dim dtdate, strsomevar


strSourceFile = "C:\chat\" & [переменная даты (2017-12-05)] & ".log"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strSourceFile) Then
		With WScript.CreateObject("CDO.Message")
			.From     = "*****@yandex.ua"
			.To       = "*****@gmail.com"
			.Subject  = "Content of file [" & strSourceFile & "]"
			
			.TextBody = "Мама мыла раму"
			.TextBodyPart.Charset = "windows-1251"
			
			.AddAttachment strSourceFile
			
			With .Configuration.Fields
				.Item(strConstPartOfSchema & "smtpserver")       = "smtp.yandex.ru"
				.Item(strConstPartOfSchema & "sendusing")        = cdoSendUsingPort
				.Item(strConstPartOfSchema & "smtpserverport")   = 465
				.Item(strConstPartOfSchema & "smtpauthenticate") = cdoBasic
				.Item(strConstPartOfSchema & "sendusername")     = "*******"
				.Item(strConstPartOfSchema & "sendpassword")     = "****"
				.Item(strConstPartOfSchema & "smtpusessl")       = True
				
				.Update
			End With
			
			.Send
		End With
	Else
		WScript.Echo "Source file [" & strSourceFile & "] not found."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

[Iska]

ymo_4@vk, попробуйте так:

Код:

Dim dtdate


dtDate = Now()
strSourceFile = "C:\chat\" & CStr(Year(dtDate)) & "-" & Right("00" & CStr(Month(dtDate)), 2) & "-" & Right("00" & CStr(Day(dtDate)), 2) & ".log"

[ymo_4@vk]

попробуйте так: »

Спасибо, работает!