Ticket #1611: DirTime.au3

File DirTime.au3, 4.9 KB (added by FranckGrieder, 14 years ago)

Source code

Line 
1#region Script Options ======================================================================================================
2;** AUTOIT3 settings
3#AutoIt3Wrapper_UseAnsi=N                       ;(Y/N) Use Ansi versions for AutoIt3a or AUT2EXEa. Default=N
4#AutoIt3Wrapper_UseX64=N                        ;(Y/N) Use X64 versions for AutoIt3_x64 or AUT2EXE_x64. Default=N
5#AutoIt3Wrapper_Version=P                       ;(B/P) Use Beta or Production for AutoIt3 and AUT2EXE. Default is P
6#AutoIt3Wrapper_Run_Debug_Mode=N                ;(Y/N)Run Script with console debugging. Default=N
7;===============================================================================================================
8;** AUT2EXE settings
9#AutoIt3Wrapper_Icon=icon.ico                                   ;Filename of the Ico file to use
10#AutoIt3Wrapper_OutFile=SetDirTime.exe           ;Target exe/a3x filename.
11#AutoIt3Wrapper_OutFile_Type=exe                ;a3x=small AutoIt3 file;  exe=Standalone executable (Default)
12#AutoIt3Wrapper_Compression=2                   ;Compression parameter 0-4  0=Low 2=normal 4=High. Default=2
13#AutoIt3Wrapper_UseUpx=Y                        ;(Y/N) Compress output program.  Default=Y
14#AutoIt3Wrapper_Change2CUI=Y                    ;(Y/N) Change output program to CUI in stead of GUI. Default=N
15;===============================================================================================================
16;** Target program Resource info
17#AutoIt3Wrapper_Res_Comment=Set FileTime             ;Comment field
18#AutoIt3Wrapper_Res_Description=Set FileTime recursively     ;Description field
19#AutoIt3Wrapper_Res_Fileversion=0.1.0.5
20#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=Y         ;(Y/N/P)AutoIncrement FileVersion After Aut2EXE is finished. default=N
21;                                                   P=Prompt, Will ask at Compilation time if you want to increase the versionnumber
22#AutoIt3Wrapper_Res_Language=2057                       ;Resource Language code . default 2057=English (United Kingdom)
23#AutoIt3Wrapper_Res_LegalCopyright=Copyright © 2010 Franck Grieder      ;Copyright field
24#AutoIt3Wrapper_res_requestedExecutionLevel=None        ;None, asInvoker, highestAvailable or requireAdministrator   (default=None)
25#AutoIt3Wrapper_Res_SaveSource=Y                        ;(Y/N) Save a copy of the Scriptsource in the EXE resources. default=N
26;
27#AutoIt3Wrapper_res_field=Made By|Franck Grieder
28#AutoIt3Wrapper_res_field=Email|franck dot grieder at free dot fr
29#AutoIt3Wrapper_res_field=AutoIt Version|%AutoItVer%
30#AutoIt3Wrapper_res_field=Compile Date|%date% %time%
31; Obfuscator
32#AutoIt3Wrapper_Run_Obfuscator=Y                 ;(Y/N) Run Obfuscator before compilation. default=N
33#obfuscator_parameters=/cs=0 /cn=0 /cf=0 /cv=0 /sf=1
34;===============================================================================================================
35; AU3Check settings
36;~ #AutoIt3Wrapper_Run_AU3Check=                   ;(Y/N) Run au3check before compilation. Default=Y
37;~ #AutoIt3Wrapper_AU3Check_Parameters=            ;Au3Check parameters
38;~ #AutoIt3Wrapper_AU3Check_Stop_OnWarning=        ;(Y/N) N=Continue on Warnings.(Default) Y=Always stop on Warnings
39;~ #AutoIt3Wrapper_PlugIn_Funcs=                   ;Define PlugIn function names separated by a Comma to avoid AU3Check errors
40;===============================================================================================================
41; cvsWrapper settings
42#AutoIt3Wrapper_Run_cvsWrapper=V                 ;(Y/N/V) Run cvsWrapper to update the script source. default=N
43;                                                 V=only when version is increased by #AutoIt3Wrapper_Res_FileVersion_AutoIncrement.
44;~ #AutoIt3Wrapper_cvsWrapper_Parameters=          ; /NoPrompt  : Will skip the cvsComments prompt
45;                                                 /Comments  : Text to added in the cvsComments. It can also contain the below variables.
46
47;#AutoIt3Wrapper_run_after=copy "%out%" "C:\Program Files\AutoIt3\SciTE\SciTEConfig\*.*"
48;#AutoIt3Wrapper_run_after=copy "%in%" "C:\Program Files\AutoIt3\SciTE\SciTEConfig\*.*"
49#AutoIt3Wrapper_Add_Constants=n
50$Prog="SetDirTime"
51$FileTimeModified=@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC
52$FileTimeModified = IniRead(@ScriptDir&"\"&$Prog&".INI","Config","YYYYMMDDHHMMSS",$FileTimeModified)
53IniWrite(@ScriptDir&"\"&$Prog&".INI","Config","YYYYMMDDHHMMSS",$FileTimeModified)
54Const $Modified = 0 ;Default
55Const $Created = 1
56Const $Accessed = 2
57Global $Recurse = 1
58$FileTimeModified = IniRead(@ScriptDir&"\"&$Prog&".INI","Config","Recurse",$Recurse)
59IniWrite(@ScriptDir&"\"&$Prog&".INI","Config","Recurse",$Recurse)
60If Ubound($CmdLine)>1 Then
61        If FileSetTime($CmdLine[1], $FileTimeModified,$Modified,$Recurse) Then
62                ConsoleWrite($FileTimeModified &" => "& $CmdLine[1]&@CRLF)
63        Else
64                ConsoleWrite("Error setting time  => "& $CmdLine[1]&@CRLF)
65        EndIf
66Else
67        ConsoleWrite("Set 'Modified File Date Time' recursively"&@CRLF)
68        ConsoleWrite("SetDirTime C:\TEMP\* set Modified time to all files to "&$FileTimeModified&@CRLF)
69EndIf