fileinstall

[Bert]

Here is my script:

FileInstall("C:\Documents and Settings\a4mh3\Desktop\autoit scrips\argis tool\AME\tabctl32.ocx",@ScriptDir & "tabctl32.ocx")
FileInstall("C:\Documents and Settings\a4mh3\Desktop\autoit scrips\argis tool\AME\Argis Made Easy.exe",@ScriptDir & "Argis Made Easy.exe")
$file="tabctl32.ocx"
$main="Argis Made Easy.exe"
if FileExists(@SystemDir & $file) then 
 RunWait('Regsvr32 /s "' & @SystemDir & '\' & $file & '"')
 run($main)
else
 FileCopy($file, @SystemDir)
 RunWait('Regsvr32 /s "' & @SystemDir & '\' & $file & '"')
 run($main)
endif

My problem is this: I need to have the 2 files extracted in the same folder as the exe I compiled. I do not know the location this folder will be, for it will depend on the user. Is this possible?

[seandisanti]

Here is my script:

FileInstall("C:\Documents and Settings\a4mh3\Desktop\autoit scrips\argis tool\AME\tabctl32.ocx",@ScriptDir & "tabctl32.ocx")
FileInstall("C:\Documents and Settings\a4mh3\Desktop\autoit scrips\argis tool\AME\Argis Made Easy.exe",@ScriptDir & "Argis Made Easy.exe")
$file="tabctl32.ocx"
$main="Argis Made Easy.exe"
if FileExists(@SystemDir & $file) then 
 RunWait('Regsvr32 /s "' & @SystemDir & '\' & $file & '"')
 run($main)
else
 FileCopy($file, @SystemDir)
 RunWait('Regsvr32 /s "' & @SystemDir & '\' & $file & '"')
 run($main)
endif

My problem is this: I need to have the 2 files extracted in the same folder as the exe I compiled. I do not know the location this folder will be, for it will depend on the user. Is this possible?

@ScriptDir

[Jos]

",@ScriptDir & "\tabctl32.ocx"

[Valuater]

and

@ScriptDir & "\Argis Made Easy.exe"

also.. maybe...

If FileExists(@SystemDir & '\' & $file) Then
    RunWait('Regsvr32 /s "' & @SystemDir & '\' & $file & '"')
    Run($main)
Else
    FileCopy($file, @SystemDir & '\' & $file)
    RunWait('Regsvr32 /s "' & @SystemDir & '\' & $file & '"')
    Run($main)
EndIf

8)

Edited June 2, 2006 by Valuater

[GaryFrost]

and

@ScriptDir & "\Argis Made Easy.exe"

also.. maybe...

If FileExists(@SystemDir & '\' & $file) Then
    RunWait('Regsvr32 /s "' & @SystemDir & '\' & $file & '"')
    Run($main)
Else
    FileCopy($file, @SystemDir & '\' & $file)
    RunWait('Regsvr32 /s "' & @SystemDir & '\' & $file & '"')
    Run($main)
EndIf

8)

If Not FileExists(@SystemDir & '\' & $file) Then FileCopy($file, @SystemDir & '\' & $file)
RunWait('Regsvr32 /s "' & @SystemDir & '\' & $file & '"')
Run($main)

Edited June 2, 2006 by gafrost

[Bert]

Thanks guys. worked like a charm.

[seandisanti]

Thanks guys. worked like a charm.

no problem, always glad to help.