Jump to content
Sign in to follow this  
AngloTom

Noob help: return value from compiled script

Recommended Posts

:idea: non-explicit file location? (created where the autoit script ran, not where you wanted it for the vbs).

I'd still prefer the passing via the console (if shared objects/memory not possible in autoit/VBs land) for myself at least, a lot nicer than passing via a file. If it works for you though...

Share this post


Link to post
Share on other sites

Nevermind! I'm an idiot. I'll post solution later.

So, here's what worked:

browseFolder()

Func browseFolder()
$var = FileSelectFolder("Choose a folder.", "")
$txtLoc = @ScriptDir & "\txtFolderLoc.txt"
$file = FileOpen($txtLoc, 1)

; Check if file opened for writing OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

FileWrite($file, $var)

FileClose($file)

EndFunc

Sub runBrowseFolderCapture 
     dim strRunVar, objFile, strFileName, strTextLine, strFolderLoc
 
     'assign file loc
     strFileName = oUtility.ScriptDir & "\txtFolderLoc.txt"
     MsgBox strFileName
 
     'create file
     oFSO.CreateTextFile(strFileName)
     
     'Run the AutoIT compiled EXE
     strRunVar = oShell.Run("""" & oUtility.ScriptDir & "\browseFolder.exe""", 1, true)
     MsgBox strRunVar

     'Read and assign folder location in text file to variable
     Set objFile = oFSO.OpenTextFile(strFileName, ForReading)
     'MsgBox "Before read"
     strTextLine = objFile.ReadLine
     'MsgBox strTextLine
     objFile.Close

     'Delete the file
     oFSO.DeleteFile(strFileName)
     
     'assign folder location variable to HTA page text box
        fileNameCapture.value = strTextLine
 End Sub

Share this post


Link to post
Share on other sites

So, here's what worked:

browseFolder()

Func browseFolder()
$var = FileSelectFolder("Choose a folder.", "")
$txtLoc = @ScriptDir & "\txtFolderLoc.txt"
$file = FileOpen($txtLoc, 1)

; Check if file opened for writing OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

FileWrite($file, $var)

FileClose($file)

EndFunc

Sub runBrowseFolderCapture 
     dim strRunVar, objFile, strFileName, strTextLine, strFolderLoc
 
     'assign file loc
     strFileName = oUtility.ScriptDir & "\txtFolderLoc.txt"
     MsgBox strFileName
 
     'create file
     oFSO.CreateTextFile(strFileName)
     
     'Run the AutoIT compiled EXE
     strRunVar = oShell.Run("""" & oUtility.ScriptDir & "\browseFolder.exe""", 1, true)
     MsgBox strRunVar

     'Read and assign folder location in text file to variable
     Set objFile = oFSO.OpenTextFile(strFileName, ForReading)
     'MsgBox "Before read"
     strTextLine = objFile.ReadLine
     'MsgBox strTextLine
     objFile.Close

     'Delete the file
     oFSO.DeleteFile(strFileName)
     
     'assign folder location variable to HTA page text box
        fileNameCapture.value = strTextLine
 End Sub

Ok so that didn't work in WinPE. I'll start another thread though, since it is not related to this one.

~AngloTom

Share this post


Link to post
Share on other sites

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
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...