如何使用VBScript打开记事本并粘贴DDMMYYYY格式的当前日期？

Question

如何使用VBScript以DDMMYYYY格式打开记事本并粘贴当前日期？

当我使用下面的代码时，我得到DD / MM / YYYY格式的输出。我希望它以DDMMYYYY格式。

set WshShell = WScript.CreateObject("WScript.Shell")

call WshShell.Run("%windir%\system32\notepad.exe")

Dim aDate

aDate = Date()

WScript.Sleep 4000

WshShell.SendKeys aDate

你们可以帮我解决这个问题吗？

Answer 1

您想要的日期格式： DDMMYYYY（不含常用斜线）

这应该适合你：

Dim WshShell: Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run("%windir%\system32\notepad.exe")
WScript.Sleep 4000

Dim aDate: aDate = WScript.CreateObject("System.Text.StringBuilder").AppendFormat("{0:dd}{0:MM}{0:yyyy}", Now).ToString()

WshShell.SendKeys aDate