All text files?

[Juggernaut]

Still getting an error....x_x

Local $sPath = @ScriptDir, $sReturn = ""
$sSearch = FileFindFirstFile($sPath & "\*.txt")
If NOT @Error Then
   While 1
      $sFile = FileFindNextFile($sSearch)
      If @Error Then ExitLoop
      $sReturn &= FileRead($sPath & $sFile) & @CRLF
   Wend
EndIf
FileClose($sSearch)

If $sReturn Then
   $hFile = FileOpen(@DesktopDir & "\TestResults.txt", 2)
   FileWrite($hFile, StringStripWS($sReturn, 2))
   FileClose($hFile)
Else
   MsgBox(0, "Oooooops", "Houston, we have a problem!")
EndIf

[Authenticity]

Because this code snippet only check if the folder is not empty and not if the FileFindFirstFile() doesn't return -1.

Also, it doesn't preform it on sub-directory of the current folder if this is what you want...

Edit: Again, don't forget that path only contain the path without the slash so this line "$sReturn &= FileRead($sPath & $sFile) & @CRLF" still won't find the file (or the desired one) and has to be written as:

$sReturn &= FileRead($sPath & "\" & $sFile)...

; or

Local $sPath = @ScriptDir & "\"

; so this is valid:

$sReturn &= FileRead($sPath & $sFile)...

Edited March 1, 2009 by Authenticity

[Juggernaut]

Ah didn't see your edit. Works perfect now! Thanks a ton man

Edited March 1, 2009 by Juggernaut

[GEOSoft]

Still getting an error....x_x

Local $sPath = @ScriptDir, $sReturn = ""
$sSearch = FileFindFirstFile($sPath & "\*.txt")
If NOT @Error Then
   While 1
      $sFile = FileFindNextFile($sSearch)
      If @Error Then ExitLoop
      $sReturn &= FileRead($sPath & $sFile) & @CRLF
   Wend
EndIf
FileClose($sSearch)

If $sReturn Then
   $hFile = FileOpen(@DesktopDir & "\TestResults.txt", 2)
   FileWrite($hFile, StringStripWS($sReturn, 2))
   FileClose($hFile)
Else
   MsgBox(0, "Oooooops", "Houston, we have a problem!")
EndIf

Append the slash where you declared $sPath

Local $sPath = @ScriptDir & "\", $sReturn = ""
$sSearch = FileFindFirstFile($sPath & "*.txt")
If NOT @Error Then
   While 1
      $sFile = FileFindNextFile($sSearch)
      If @Error Then ExitLoop
      $sReturn &= FileRead($sPath & $sFile) & @CRLF
   Wend
EndIf
FileClose($sSearch)

If $sReturn Then
   $hFile = FileOpen(@DesktopDir & "\TestResults.txt", 2)
   FileWrite($hFile, StringStripWS($sReturn, 2))
   FileClose($hFile)
Else
   MsgBox(0, "Oooooops", "Houston, we have a problem!")
EndIf

Edited March 1, 2009 by GEOSoft