mr-es335 Posted 14 hours ago Posted 14 hours ago (edited) Hello, I do hope that I have titled this query correctly? I have the following script that confirm the modified dates of a number of data files - implementing FileGetTime. However, each item is being displayed "one-after-the-other". What I require is a complete file listing! Here is the script: Spoiler expandcollapse popup; ----------------------------------------------- ; 9/8/2026 11:55:44 AM ; ----------------------------------------------- #include "ExtMsgBox.au3" #include <FileConstants.au3> ; ----------------------------------------------- Opt("MustDeclareVars", 1) ;~ Opt("MouseCoordMode", 0) ; ----------------------------------------------- Global $iEMBWidth = 1000 Global $iMsgDelay = 2 ; --------------------- Global $sAC_DAPath = "D:\App_Config\Digital_Audio" Global $sMainBUPath = "E:\Backups" ; ----------------------------------------------- DrvGBU() ; ----------------------------------------------- Func DrvGBU() DriveGBU() ConfirmFileDates() EndFunc ;==>DrvGBU ; ----------------------------------------------- Func DriveGBU() Local $sSrcDataPath, $sDstDataPath, $sResult = "" Local $aSrcData[] = [ _ "G:\CHT_Files", _ "G:\ControlTrack_Data", _ "G:\F-Key_Data", _ "G:\Mix_Templates", _ "G:\Prf_Data", _ "G:\Scene_Data", _ "G:\Session_Data", _ "G:\Session_Master"] ; --------------------- Local $aDstData[] = [ _ $sMainBUPath & "\App_Config\DriveG\CHT_Files", _ $sMainBUPath & "\App_Config\DriveG\ControlTrack_Data", _ $sMainBUPath & "\App_Config\DriveG\F-Key_Data", _ $sMainBUPath & "\App_Config\DriveG\Mix_Templates", _ $sMainBUPath & "\App_Config\DriveG\Prf_Data", _ $sMainBUPath & "\App_Config\DriveG\Scene_Data", _ $sMainBUPath & "\App_Config\DriveG\Session_Data", _ $sMainBUPath & "\App_Config\DriveG\Session_Master"] ; ----------------------------------------------- For $i = 0 To UBound($aSrcData) - 1 $sSrcDataPath = $aSrcData[$i] $sDstDataPath = $aDstData[$i] ; --------------------- $sResult &= $i + 1 & "] ..." & $sSrcDataPath & (DirCopy($sSrcDataPath, $sDstDataPath, $FC_OVERWRITE + $FC_CREATEPATH) ? "...Yes " : "...No ") & @CRLF ;~ ConsoleWrite("From: " & $sSrcDataPath & " ====>>>> To: " & $sDstDataPath & @CRLF) Next ; ----------------------------------------------- _ExtMsgBoxSet(64, 4, Default, Default, 14, "Segoe UI Semibold", $iEMBWidth) _ExtMsgBox(48, " ", " Copy file data...", $sResult, $iMsgDelay) EndFunc ;==>DriveGBU ; ----------------------------------------------- Func ConfirmFileDates() Local $aFiles[14] = [ _ "G:\F-Key_Data\1_SAW_Empty.fky", _ "G:\F-Key_Data\2_SAW_Alt_Empty.fky", _ "G:\F-Key_Data\3_SAC_Empty.fky", _ "G:\F-Key_Data\4_SAC_Alt_Empty.fky", _ "G:\F-Key_Data\5_SAW_3CH_Mix.fky", _ "G:\F-Key_Data\6_SAC_6CH_Mix.fky", _ "G:\Mix_Templates\1_SAW_3CH_Mix.mxt", _ "G:\Mix_Templates\2_SAC_6CH_Mix.mxt", _ "G:\Mix_Templates\3_SAW_Upated.mxt", _ "G:\Mix_Templates\4_SAC_Updated.mxt", _ "G:\Prf_Data\SAC64.prf", _ "G:\Prf_Data\SAWStudio64.prf", _ "G:\Session_Master\Session_Master.edl", _ "G:\Session_Master\Session_Master.mxs"] ; ----------------------------------------------- For $i = 0 To UBound($aFiles) - 1 Local $tFileTime = FileGetTime($aFiles[$i]) Local $sMsg = _ $aFiles[$i] & ", " & $tFileTime[3] & ":" & $tFileTime[4] & ":" & $tFileTime[5] & ", " & _ $tFileTime[1] & "/" & $tFileTime[2] & "/" & $tFileTime[0] & " " ; ----------------------------------------------- _ExtMsgBoxSet(64, 4, Default, Default, 14, "Segoe UI Semibold", $iEMBWidth) _ExtMsgBox(64, " ", " File Modified Date!", $sMsg, $iMsgDelay) Next EndFunc ;==>ConfirmFileDates ; ----------------------------------------------- Any assistance would be greatly appreciated! Edited 14 hours ago by mr-es335 mr-es335 Sentinel Music Studios
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now