Help to create a filelist

[Pignara 0]

Hi,

I need to create an output.lst file from a log folder.

The output.lst must have this format:

filename;Patch|Size

like

recovery.log;C:\Recovery\Log\|1276

log_06.03.2007.txt;C:\Recovery\Log\|1800

I figured out how to output the filelist

#NoTrayIcon
Dim $Logdir = @ScriptDir & '\Logs\'

$LogFolders = _FileListToArrayEx($Logdir, '*.log; *.txt; *.rtf')
    
      $s_FileList = _ArrayToString($LogFolders, "*",1)
      $a_FileList = StringSplit($s_FileList, "*")
      $s_OutFile = @ScriptDir & '\output.lst'
      _FileWriteFromArray($s_OutFile, $a_FileList)

but I'm stuck adding Patch & Size to each line...

Any help is really appreciate

[xcal 0]

Try this (change the path, of course, and run it in scite):

$path = @MyDocumentsDir & '\'
$first = FileFindFirstFile($path & '*.*')

While 1
    $next = FileFindNextFile($first)
    If @error Then ExitLoop
    If StringInStr(FileGetAttrib($path & $next), 'D') Then ContinueLoop
    ConsoleWrite($next & ';' & $path & '|' & FileGetSize($path & $next) & @LF)
WEnd

[Pignara 0]

Try this (change the path, of course, and run it in scite):

$path = @MyDocumentsDir & '\'
$first = FileFindFirstFile($path & '*.*')

While 1
    $next = FileFindNextFile($first)
    If @error Then ExitLoop
    If StringInStr(FileGetAttrib($path & $next), 'D') Then ContinueLoop
    ConsoleWrite($next & ';' & $path & '|' & FileGetSize($path & $next) & @LF)
WEnd

Tested in scite, all went fine.

I'am an NOOB ans say me that I'm stupid but how can "fisically" create the output.lst?

[SmOke_N 203]

FileClose(FileOpen('Output.lst', 2))

[Pignara 0]

FileClose(FileOpen('Output.lst', 2))

I don't understand. Please show me a sample script that create and write the output.lst.

[SmOke_N 203]

I don't understand. Please show me a sample script that create and write the output.lst.

It creates a file.

Then you use FileWrite to write to the file.

Look at FileWrite in the help file for the example.