![]() Loading |
VBScript |
JavaScript |
Powershell |
Search Options: Create a Folder With a Name Based on the Monday and Friday of the Coming Week
|
||
intDay = Weekday(Date)
If intDay = 1 Then intAdder = 1 Else intAdder = 9 - intDay End If dtmMonday = Date + intAdder dtmFriday = dtmMonday + 4 strFolderName = "C:\Test\" & dtmMonday & " to " & dtmFriday strFolderName = Replace(strFolderName, "/", "-") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.CreateFolder(strFolderName) | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: |