创建今天的日期文件夹

Question

我有一个名为2010的文件夹。 在这个我想每个月的文件夹像“Jan10”，“Feb10”.....“Dec10” 在每个月份文件夹我想\ 2010图标：为“今天的日期”

我有创建，2010年文件夹目标的快捷方式作为

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

我想，当我点击该快捷方式对于f，将执行一个功能，创建文件夹。

任何指针都会有很大的帮助。

Answer 1

下面的脚本没有招我

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 

端功能

Answer 2

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

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