Loop to decide folder name

[jben]

Hey everyone. I'm just wondering, is it possible to create a loop to determine a folder name

something like this:

$foldername = loop

if january 1st,2nd,3rd,4th,5th,6th then = Week1

if january 7th,8th,9th,10th,11th then = week 2

c:\output\$foldername <--the folder name is determined by the loop above.For example, if its January 1st then the folder name will be c:\output\Week 1

thanks

Edited April 21, 2008 by jben

[d4rk]

if january 1st,2nd,3rd,4th,5th,6th then = Week1

are you menting about the date of file or just the name of folder ?

[jben]

name of folder..

so name of folder will = the week number determined by the loop

thanks

[monoceres]

#include <date.au3>
Dim $date[3]=[2008,04,21]
DirCreate("Week "&_WeekNumberISO($date[0],$date[1],$date[2]))

[jben]

brilliant bit of code. Is it possible to incorporate the year into the code as the "Week" bit...

So "Week" can be year....Then I would have 200817 for instance

[d4rk]

#include <date.au3>
Dim $date[3]=[2008,04,21]
DirCreate(@YEAR & _WeekNumberISO($date[0],$date[1],$date[2]))

[jben]

hey

with this code is it possible to add more dates to the loop..so i can check more than 1 month?...thanks

[zorphnog]

If you want the actual week of the month you could use this. And create the directory as Year\Month\Week #, for instance 2008\April\Week 4.

#include <Date.au3>
DirCreate(@YEAR & "\" & @MON & "\" & "Week " & _GetWeekOfMonth())

Func _GetWeekOfMonth($iYear = @YEAR, $iMonth = @MON, $iDay = @MDAY)
    Local $iDayOffset = _DateToDayOfWeek($iYear, $iMonth, 1) - 1
    If Mod(($iDay + $iDayOffset),7) = 0 Then
        Return Int(($iDay + $iDayOffset)/7)
    Else
        Return Int((($iDay + $iDayOffset)/7)+1)
    EndIf
EndFunc

Edited April 21, 2008 by zorphnog

[jben]

I'm trying to obtain the week number...So for instance we are in week 17 now...But I found that if I change the date and time properties on my PC it still states the number 17...

[jben]

Fixed it now...I just used this:

#include <date.au3>

Dim $date[3]=[@YEAR,@MON,@MDAY]

DirCreate(@YEAR & _WeekNumberISO($date[0],$date[1],$date[2]))

Thanks everyone for the help Edited April 21, 2008 by jben

[jben]

Hey. I've made an improvement to my code. The only problem I have is the "Somerset" bit is not working

What i'm trying to achieve is move the contents of the c:\OUTPUT\MASTER folder to C:\OUTPUT\YEARWEEKNUMBER\Somerset

which in this case would be moving the contents of MASTER folder to C:\OUTPUT\200817\Somerset.

Anyone have any ideas?...thanks

#include <date.au3>
Dim $date[3]=[@YEAR,@MON,@MDAY]
DirMove ("C:\OUTPUT\MASTER","C:\OUTPUT\" & @YEAR &_WeekNumberISO($date[0],$date[1],$date[2]"\Somerset"))

Edited April 21, 2008 by jben

[zorphnog]

#include <date.au3>
Dim $date[3]=[@YEAR,@MON,@MDAY]
DirMove ("C:\OUTPUT\MASTER","C:\OUTPUT\" & @YEAR &_WeekNumberISO($date[0],$date[1],$date[2]) & "\Somerset")[/code]oÝ÷ Ø  l¢'ò¢íý­æ¥Á¬¬ºÈ§Ø^rêëz{]jײ¢çhmçkMúu«^jºÚÉ«­¢+Ø¥¹±Õ±ÐíѹÔÌÐì)¥É5½Ù ÅÕ½ÐíèÀäÈí=UQAUPÀäÈí5MQHÅÕ½Ðì°ÅÕ½ÐíèÀäÈí=UQAUPÀäÈìÅÕ½ÐìµÀìeHµÀí}]­9ÕµÉ%M

[zorphnog]

Hmm...for some reason i couldn't edit the last post. You may also need to make sure the directory exists before you try to move it.

#include <date.au3>
Local $sOutDir = "C:\OUTPUT\" & @YEAR & _WeekNumberISO() & "\Somerset"
If Not FileExists($sOutDir) Then DirCreate($sOutDir)
DirMove ("C:\OUTPUT\MASTER", $sOutDir)