오늘 날짜의 폴더 만들기

Question

2010 년 이름의 폴더가 있습니다. "Jan10", "Feb10"..... "Dec10"과 같은 매월 폴더가 필요합니다. 원하는 매월 폴더마다 2010 아이콘 \ "오늘 날짜"

나는 내가 F의 바로 가기를 클릭 할 때 실행하는 기능을 원하는

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

으로 대상으로하는 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")