Windows stores File Created,File Accessed,File Modified & MTF last written in the NTFS file entry for every file.
Maybe you need special tool to edit the modified date for each file.
Code: Select all
Procedure sizeCB()
ResizeGadget(0,10,10,WindowWidth(0)-20,WindowHeight(0)-40)
EndProcedure
If OpenWindow(0, 0, 0, 400, 200, "ExplorerListGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget)
ExplorerListGadget(0, 10, 10, 380, 180, "C:\*.*", #PB_Explorer_MultiSelect)
SetGadgetItemAttribute(0,0,#PB_Explorer_ColumnWidth,80,1)
SetGadgetItemAttribute(0,0,#PB_Explorer_ColumnWidth,50,2)
SetGadgetItemAttribute(0,0,#PB_Explorer_ColumnWidth,0,3)
AddGadgetColumn(0,4,"Modified Date",100)
nCol = CountGadgetItems(0)
For item = 0 To nCol
text$ = GetGadgetItemText(0, item,3)
m$ = RSet(StringField(text$, 1, "/"),2,"0")
d$ = RSet(StringField(text$, 2, "/"),2,"0")
y$ = RSet(StringField(text$, 3, "/"),4,"")
SetGadgetItemText(0, item,y$+"/"+m$+"/"+d$,4)
Next
BindEvent(#PB_Event_SizeWindow,@sizeCB())
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Gadget
Select EventGadget()
Case 0
SetGadgetItemAttribute(0,0,#PB_Explorer_ColumnWidth,0,3)
nCol = CountGadgetItems(0)
For item = 0 To nCol
text$ = GetGadgetItemText(0, item,3)
m$ = RSet(StringField(text$, 1, "/"),2,"0")
d$ = RSet(StringField(text$, 2, "/"),2,"0")
y$ = RSet(StringField(text$, 3, "/"),4,"")
SetGadgetItemText(0, item,y$+"/"+m$+"/"+d$,4)
Next
EndSelect
EndSelect
Until quit = 1
EndIf