_FileListToArray + "last modified" time stamp

[amakrkr]

Hello all,

in my previous topic i started a script which is writing files from a specific directory into a simple TXT file.

Now I want my script to be able to get a little more information from those files and write them all into a TXT file.

I want file name + last modified date to be written.

The only usefull stuff i found on help was function called FileGetTime() but i dont know how to combine it with my _FileListToArray() function.

Any help would be greatly apreciated.

Thx

#include <Array.au3>
#include <File.au3>

$File = "c:\Filenames.dat"  

$Path = $CmdLine[1]                 

$List = _FileListToArray($Path)     
FileDelete("c:\Filenames.dat")
sleep(200)
_FileWriteFromArray($File, $List, 1)

[GEOSoft]

Dump the _FileWriteFromArray() garbage and use a loop coupled with FileWriteLine() and FileGetTime()

For $i = 1 To Ubound($List) -1
  ;; Do what you want here.
Next

[amakrkr]

Dump the _FileWriteFromArray() garbage and use a loop coupled with FileWriteLine() and FileGetTime()

For $i = 1 To Ubound($List) -1
  ;; Do what you want here.
Next

Hello,

thanks for replay.

I have encountered another problem. (see my script below)

#include <Array.au3>
#include <File.au3>


$File = "C:\File.dat"
$Command = $CmdLine[1]
$List = _FileListToArray($Command)
$file_open = FileOpen($File, 2)

$time =  FileGetTime($List)

For $i = 1 To Ubound($List) -1

    $t = FileGetTime($List[$i])
    $yyyymd = $t[2] & "." & $t[1] & "." & $t[0] & " " & $t[3] & "." & $t[4]
    FileWriteLine($file_open,$list[$i] & "     " & FileGetTime($List[$i]) & @CRLF)

Next

I think the problem is that _FileListToArray function only writes file names to array and no other information....

Anyway the problem i have now is that i dont know how to pick up file by file from a directory and write it to TXT file.

[GEOSoft]

Thats what _FileListToArray() does and the primary reason I won't use it.

#include <Array.au3>

#include <File.au3>

$File = "C:\File.dat"

$Command = $CmdLine[1]

$List = _FileListToArray($Command)

If StringRight($Command, 1) <> "\" Then $Command &= "\"

$file_open = FileOpen($File, 2)

;;$time = FileGetTime($List);;;;;;; Totally useless, $List isn't a file

For $i = 1 To Ubound($List) -1

$sFile = $Command & $List[$i]

$t = FileGetTime($sFile)

$yyyymd = $t[2] & "." & $t[1] & "." & $t[0] & " " & $t[3] & "." & $t[4]

FileWriteLine($file_open,$sFile & " " & FileGetTime($sFile) & @CRLF)

Next

FileClose($File_open) ;; Very important to close a file handle after you finish writing to it.

[amakrkr]

Hello again,

i manage to solve it by my self actually. I used _FileListToArray to get number of files and their names. Then i compared stored names in array with names on directory. If name exists in array then i read time of it with FileGetTime and write both time and Name into a TXT file.

Thank you very much for your reply!

PS thx for that FileClose($File_open) tip i would forgot to do that 100%.

[antonioj84]

On 17/06/2010 at 3:15 AM, amakrkr said:

Hello again,

 

i manage to solve it by my self actually. I used _FileListToArray to get number of files and their names. Then i compared stored names in array with names on directory. If name exists in array then i read time of it with FileGetTime and write both time and Name into a TXT file.

 

Thank you very much for your reply!

 

 

PS thx for that FileClose($File_open) tip i would forgot to do that 100%.

 

about posting the code may help someone in the future, don't you think ?

[Subz]

You do realize this is a 7 year old post?

To get FileList with FileTime you could use:

#include <Array.au3>
#include <File.au3>

Local $sFilePath = @ScriptDir
Local $aFilePath = _FileListToArrayRec($sFilePath, "*", 1, 0, 0, 2)
If @error Then Exit

Local $aFileTime[1][2]
For $i = 1 To $aFilePath[0]
    _ArrayAdd($aFileTime, $aFilePath[$i] & "|" & FileGetTime($aFilePath[$i], 0, 1))
Next
_ArrayDisplay($aFileTime)

 

[antonioj84]

14 minutes ago, Subz said:

You do realize this is a 7 year old post?

To get FileList with FileTime you could use:

#include <Array.au3>
#include <File.au3>

Local $sFilePath = @ScriptDir
Local $aFilePath = _FileListToArrayRec($sFilePath, "*", 1, 0, 0, 2)
If @error Then Exit

Local $aFileTime[1][2]
For $i = 1 To $aFilePath[0]
    _ArrayAdd($aFileTime, $aFilePath[$i] & "|" & FileGetTime($aFilePath[$i], 0, 1))
Next
_ArrayDisplay($aFileTime)

 

 

thanks, that is exactly what  I wanted.

[antonioj84]

#include <Array.au3>
#include <File.au3>

Local $sFilePath = @ScriptDir
Local $aFilePath = _FileListToArrayRec($sFilePath, "*", 1, 0, 0, 2)
If @error Then Exit

Local $aFileTime[1][2]
For $i = 1 To $aFilePath[0]
    _ArrayAdd($aFileTime, $aFilePath[$i] & "|" & FileGetTime($aFilePath[$i], 0, 1))
Next

_ArraySort ($aFileTime,1,1,"",1)   ;sort by date
_ArrayDisplay($aFileTime)

sort by date more recent