如何使用VBScript打开记事本并在其中粘贴当前日期？

如何使用VBScript打开记事本并在其中粘贴当前日期

这就是我目前所拥有的一切：

Set WshShell = WScript.CreateObject("WScript.Shell")
Call WshShell.Run("%windir%\system32\notepad.exe")
Dim aDate
aDate = Date()
WScript.Sleep 2000

现在，如何粘贴日期？

用于将击键发送到活动窗口

用法：

WshShell.SendKeys aDate

您可能需要确保焦点位于要向其发送击键的窗口中。为此，请使用方法

在这种情况下使用窗口标题：

WshShell.AppActivate "Untitled - Notepad"

你也可以使用

WshShell.SendKeys "{F5}"

---

你搜索过你的问题吗？是的，我搜索过。。“但是找不到任何解决办法。”我回答。应该行的。你需要这样做吗？您是否可以将日期写入文本文件，然后用记事本打开文件？请后退一步，描述您试图解决的实际问题，而不是您认为的解决方案。您需要文本文件中的日期做什么？我尝试使用set WshShell=WScript.CreateObject（“WScript.Shell”）调用WshShell.Run（“%windir%\system32\notepad.exe”）Dim aDate aDate=“date（）”WScript.Sleep 4000 WshShell.AppActivate“Untitled-notepad”WshShell.SendKeys aDate，并向我发送了“date”在里面Notepad@DishantParakh然后发生了什么？日期没有打印吗？没有，它没有打印日期。相反，它打印了“Date”@DishantParakh，这是你的错。您正在使用

Date

函数作为字符串文本！使用它时不带双引号，如

aDate=Date（）

，并将结果发回。