filewrite all files in folders/subfolders

[bluerein]

I have around 4000 txt files in a directory with subdirectorys .. I need to remove the last line of each file and replace with a new line....

Whats the best way to go about it??

Thanks

[Airwolf]

I have around 4000 txt files in a directory with subdirectorys .. I need to remove the last line of each file and replace with a new line....

Whats the best way to go about it??

Thanks

_FileListToArray, and then run through the array with a For...Next loop. For each file in the loop, you'd have to count the lines in the file and then do a _FileWriteToLine to delete the last line. In summation, read the help file topics for _FileListToArray, For...Next, _FileCountLines and _FileWriteToLine.

Edited November 18, 2008 by Airwolf

[bluerein]

Thanks got it!!

[zorphnog]

Or use FileFindFirstFile/FileFindNextFile to step through the directory structure recursively.

$sPath = "C:\my\Txt\Directory"
RecurseDirs($sPath, "txt")

Func RecurseDirs ($sPath, $sExt, $sSpacer = " ")
    Local $hSearch, $sFile, $sFilePath
    $hSearch = FileFindFirstFile($sPath & "\*")
    If $hSearch = -1 Then Return
    
    While 1
        $sFile = FileFindNextFile($hSearch)
        If @error Then ExitLoop
        
        $sFilePath = $sPath & "\" & $sFile
        If StringInStr(FileGetAttrib($sFilePath), "D") <> 0 Then
            ConsoleWrite($sSpacer & $sFilePath & @LF)
            RecurseDirs($sFilePath, $sExt, $sSpacer & "  ")
        Else
            If StringRegExp($sFile, "(?i)\." & $sExt & "\z", 0) Then
                ; Add File Read/Write processing here
                ConsoleWrite($sSpacer & $sFilePath & @LF)
            EndIf
        EndIf
    WEnd
EndFunc

Edited November 18, 2008 by zorphnog

[youknowwho4eva]

I may be mistaken but I believe if you tell _filewritetoline to write to line -1 it automatically writes to the last line in the file.