it doesnt run

[Zibit]

before somebody asks i have debugged this for 2 days... not a clue...

#include<File.au3>
#Include <Array.au3>
TrayTip("", "running", 0)
folder()
Func folder()
    $i = 0
    $folder = _FileListToArray(@ScriptDir, "*", 2)
    if @error then exit
    sleep(1000)
    Do
    $i = $i + 1
        if $folder[0] = 0 then exitloop
        FileCopy(@ScriptDir & "/folder.exe", $folder[$i] & "/folder.exe")
        sleep(2000)
        Run($folder[$i] & "/folder.exe", "", @SW_SHOW)
    until $i = $folder[0]
    $file = _FileListToArray(@ScriptDir, "*", 1)
    $i = 0
    Do
    $i = $i + 1 
    if $file[0] <> 0 then $filesize = FileGetSize($file[$i])
    if $file[0] <> 0 then FileWriteLine("c:/file.tsf", @ScriptDir & "\" & $file[$i])
    if $file[0] <> 0 then FileWriteLine("c:/filesize.tsf", $filesize)
    sleep(500)
    Until $i = $file[0]
EndFunc

THE RUN FUNC... it runs but it doesnt copy file further when i run them manually it works...

[Melba23]

Zibit,

At first glance you are not giving the full path of the new file when you copy and run. Try it like this:

FileCopy(@ScriptDir & "\folder.exe", @ScriptDir & "\" & $folder[$i] & "\folder.exe")
        sleep(2000)
        Run(@ScriptDir & "\" & $folder[$i] & "\folder.exe", "", @SW_SHOW)

I also replaced your / with \ - that is the normal convention.

M23

[Zibit]

nope.... isnt working...

[Steveiwonder]

#include<File.au3>
#Include <Array.au3>
TrayTip("", "running", 0)
folder()
Func folder()
    $i = 0
    $folder = _FileListToArray(@ScriptDir, "*", 2)
    if @error then exit
    sleep(1000)
    Do
    $i = $i + 1
        if $folder[0] = 0 then exitloop
        FileCopy(@ScriptDir & "\folder.exe", @ScriptDir & "\" & $folder[$i] & "\folder.exe")
        ConsoleWrite(@ScriptDir & "\" & $folder[$i] & "\folder.exe" & @CRLF)
        sleep(2000)
        Run(@ScriptDir & "\" & $folder[$i] & "\folder.exe", "", @SW_SHOW)
    until $i = $folder[0]
    
    $file = _FileListToArray(@ScriptDir, "*", 1)
    $i = 0
    Do
    $i = $i + 1 
    if $file[0] <> 0 then $filesize = FileGetSize($file[$i])
    if $file[0] <> 0 then FileWriteLine("c:/file.tsf", @ScriptDir & "\" & $file[$i])
    if $file[0] <> 0 then FileWriteLine("c:/filesize.tsf", $filesize)
    sleep(500)
    Until $i = $file[0]
EndFunc

That worked for me.

[Melba23]

Zibit,

It works for me, that is why I suggested it.

And I see it works for others too!

M23

[MHz]

Run() can have unexpected issues when the path contains whitespace without double quotes. It is wise to use double quotes to prevent issues.

FileCopy(@ScriptDir & "\folder.exe", @ScriptDir & "\" & $folder[$i] & "\folder.exe")
        Sleep(2000)
        Run('"' & @ScriptDir & '\' & $folder[$i] & '\folder.exe"', "", @SW_SHOW)

Edit:

Added a few more words for clarity.

Edited February 19, 2010 by MHz