Jump to content

Recommended Posts

Posted

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...

  • Moderators
Posted

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. :mellow:

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

  Reveal hidden contents

 

Posted

#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.

They call me MrRegExpMan

  • Moderators
Posted

Zibit,

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

And I see it works for others too! :mellow:

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

  Reveal hidden contents

 

Posted (edited)

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 by MHz

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...