我有一个名为 2010 的文件夹。在这个文件夹中,我想要每个月的文件夹,例如“Jan10”、“Feb10”.....“Dec10” 在每个月的文件夹中,我想为“今天的日期”创建文件夹
我已经为该 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
结束功能