Windows 为今天的日期创建文件夹

我有一个名为2010的文件夹。 在这里，我希望每个月都有一个文件夹，比如1月10日、2月10日……12月10日 在每个月的文件夹中，我要为今天的日期创建文件夹

我已经为目标为的2010文件夹创建了一个快捷方式

C:\WINDOWS\explorer.exe /n, /e, /select, F:\2010

我想要一个功能，当我点击f:\2010图标的快捷方式时将执行

---

任何指针都会很有帮助。

在Windows上，VBScript是您的朋友。我不确定如何获取日期等，但我可以告诉您如何创建文件夹：

set s = wscript.createobject("scripting.filesystemobject")
s.createfolder("FOLDER NAME")

---

下面的脚本对我很有帮助

strMonth = MonthName(Month(date))
strYear = Year(Date)
FolderName = "F:\Test\" & strYear &"\" & strMonth & "\" & Day(date) & " " & strMonth 
Set SH = WScript.CreateObject("WScript.Shell") 
CreateSubFolder( FolderName )

Sh.Run """" & FolderName & """", 3, False
Set SH = Nothing 


Function CreateSubFolder(strFolder)

  Dim posSubFolder, strParentFolder, objSFC

  Set objSFC = CreateObject("Scripting.FileSystemObject")


If Not (objSFC.FolderExists(strFolder)) then

set fl =     objSFC.CreateFolder(strFolder)

  End If

---

结束功能

如何在单击快捷方式时执行此脚本？