Créer un dossier pour la date d'aujourd'hui

Question

J'ai un dossier nommé comme 2010. Dans ce je veux un dossier pour chaque mois comme "Jan10", "Feb10" ..... "Dec10" Dans chaque dossier mois que je veux créer un dossier pour « Date Todays »

je créer un raccourci pour ce dossier 2010 avec la cible sous

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

Je veux une fonctionnalité qui exécutera lorsque je clique sur le raccourci pour f: \ 2010 icône.

Tout pointeur serait d'une grande aide.

Answer 1

script suivant ne truc pour moi

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 

End Function

Answer 2

Sous Windows, VBScript est votre ami. Je ne suis pas sûr de savoir comment obtenir les dates, etc., mais je peux vous dire comment créer un dossier:

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