創建今天的日期文件夾

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