Создать папку на сегодняшний день

Question

У меня есть папка с именем 2010. В этом я хочу папку для каждого месяца, как "Jan10", "Feb10" ..... "Dec10" В папке каждого месяца я хочу создать папку для «сегодняшней даты»

Я создал ярлык для этой папки 2010 года с Target как

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

Мне нужна функция, которая будет выполняться при нажатии ярлыка для значка f: \ 2010.

Любой указатель будет очень полезен.

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")