variable folder name

[RedneckTech]

still working on that AV script. not easier anymore, but a challenge for me so its interesting

Basically trying to run an exe in a folder with a variable name.

C:\folder\folder\VERSION\target.exe

my boss gave me this

$SourceFolder = "C:\Versiontest\"
_ScanFolder($SourceFolder)

Func ScanFolder($SourceFolder)
   Local $Search
   Local $File
   Local $FileAttributes
   Local $FullFilePath

   $Search = FileFindFirstFile($SourceFolder & "\*.*")
 
   While 1
      If $Search = -1 Then
         ExitLoop
      EndIf

      $File = FileFindNextFile($Search)
      If @error Then ExitLoop
      MsgBox(0, "", $File)

      $FullFilePath = $SourceFolder & "\" & $File
      $FileAttributes = FileGetAttrib($FullFilePath)

      If StringInStr($FileAttributes,"D") Then
     ScanFolder($FullFilePath)
      Else
     LogFile($FullFilePath)
      EndIf
 
   WEnd
 
   FileClose($Search)
EndFunc

and i know it's not what i want, but its close and i just cant get it to work. any ideas?

just to clarify, the VERSION folder is renamed to the current version of the program with every update.

[jdelaney]

Look into _FileListToArray, loops, and StringRegExp to find your file

[RedneckTech]

actually this is working (ALMOST!!) just need to fix my issue with the messagebox in success returning 0. not sure what i missed.

$Parent = "C:TestFolder*"
$Target = "Test.txt"

If FileExists ($Parent) = 1 Then
   $returnvalue = _Search($Parent, $Target)
   MsgBox (0,"Success?", $returnvalue)
Else
   MsgBox(0,"","Folder not found")
EndIf


Func _Search($Parent, $Target)
   $Search = FileFindFirstFile($Parent & "*.*")
   While 1
      If $Search = -1 Then ExitLoop
      
      $File = FileFindNextFile($Search)
      If @error Then ExitLoop
      MsgBox(0,"Search Subroutine", $File)
      
      $FullPath = $Parent & "" & $File
      If $File = $Target Then
         Return $FullPath
      Else
         $FileAttr = FileGetAttrib($FullPath)
         If StringInStr( $FileAttr, "D") Then
            _Search($FullPath, $Target)
         EndIf
      EndIf
   WEnd
        
EndFunc

[RedneckTech]

ok. found some minor issues. MsgBox(0,"", $FullPath) works before the Return $FullPath, but when i MsgBox(0,"", $returnvalue) i get zero...

$Parent = "C:TestFolder"
$Target = "Test.txt"

If FileExists ($Parent & "*") = 1 Then
   $returnvalue = _Search($Parent, $Target)
   MsgBox (0,"Success?", $returnvalue)
Else
   MsgBox(0,"","Folder not found")
EndIf


Func _Search($Parent, $Target)
   $Search = FileFindFirstFile($Parent & "*.*")
   MsgBox(0,"", "in func")
   While 1
      MsgBox(0,"", "start loop")
      If $Search = -1 Then ExitLoop
      MsgBox(0,"", "search = " & $Search )
      $File = FileFindNextFile($Search)
      If @error Then ExitLoop
      MsgBox(0,"Search Subroutine", $File)
      
      $FullPath = $Parent & "" & $File
      If $File = $Target Then
         MsgBox(0,"", "Full path = " & $FullPath)
         Return $FullPath
      Else
         $FileAttr = FileGetAttrib($FullPath)
         If StringInStr( $FileAttr, "D") Then
            _Search($FullPath, $Target)
         EndIf
      EndIf
   WEnd
        
EndFunc

Edited September 5, 2012 by RedneckTech

[JohnOne]

It is possible that the possible recursion in your code is causing an issue.

When you call a function from within itself it is called recursion, so when your

function returns, it might be that it is returning the value to itself.

That sounds weird I know but its the likely explanation.

[RedneckTech]

yea i actually figured that out. I set $savedPath = "" right before the original call to the function and changed the return $FullPath to $SavedPath = $FullPath. Only changes the variable if its successful so If $SavedPath <> "" Then. all good.

Thanks guys! best help as usual!