blue_raptor
14th June 2005 11:59 UTC

FileOpen doesn't work
  I try to open a file with FileOpen. But it does not work. With my Explorer I am able to open that file with no problems. The file is created during the procedure by a vbscript (yes, that's nessesary).

Here is my NSIS Code

SetOverwrite on


  SetOutPath "$INSTDIR\tmp"


 File "${BIN}\ImportAssistentScript.vbs"

 File "${BIN}\ZertifikatImport.vbs"

 File "${BIN}\ZertifikatsKonsole.msc"


 ;privates zertifikat in den speicher laden über die skripte

  Exec 'cscript "$INSTDIR\tmp\ImportAssistentScript.vbs" "$private_crt" "$pwd"'

 ExecWait 'cscript "$INSTDIR\tmp\ZertifikatImport.vbs" "$INSTDIR\tmp\ZertifikatsKonsole.msc" "$INSTDIR"'

  

 Delete "${BIN}\ImportAssistentScript.vbs"

 Delete "${BIN}\ZertifikatImport.vbs"

 Delete "${BIN}\ZertifikatsKonsole.msc"


 ;datei tmp.txt wird im script geschrieben.

 StrCpy $R1 "$INSTDIR\tmp.txt"


 FileOpen $0 $R1 "r" ;hier tritt ein fehler auf. warum???

  IfErrors error1


  FileRead$0 $1

  IfErrors error2

  

  MessageBox MB_OK "Datei-Inhalt '$1'"

  

 FileClose $0

  goto done

  

  error1:

 MessageBox MB_OK "fehler beim öffnen der datei: '$R1'"

  goto done

  

  error2:

 MessageBox MB_OK "fehler beim lesen der datei"

  goto done

  

  done:

  

  Quit 

>

It's only a testing part. First I copy the vbscript files to the instdir to run them on the target computer. after they are executed I delete the files. At this time, the file tmp.txt allready exists. But FileOpen fails. I have absolutely no idea why!

For those who can script vb here's the part of writing the file in vbscript.

Dim zertName

zertName= objView.CellContents(objItem, 1)


>Ergebnis in temp datei speichern

Dim objFSO, file

Set objFSO= CreateObject("Scripting.FileSystemObject")

>Set file   = objFSO.CreateTextFile(path + "\tmp.txt", true)

>file.WriteLine(zertName)

>file.Close() 

I think, that this is not a NSIS Problem. But I don't know anyone who could help me... :cry:

blue_raptor
14th June 2005 12:59 UTC

I have to write

FileOpen $0 "$R1" "r" ;hier tritt ein fehler auf. warum???

instead of

FileOpen $0 $R1 "r" ;hier tritt ein fehler auf. warum???

Afrow UK
15th June 2005 01:29 UTC

Try:
ClearErrors
FileOpen $0 $R1 "r" ;hier tritt ein fehler auf. warum???
IfErrors error1

-Stu

Afrow UK
15th June 2005 01:30 UTC

Also, I think the Delete's should be:
Delete "$INSTDIR\tmp\ImportAssistentScript.vbs"
Delete "$INSTDIR\tmp\ZertifikatImport.vbs"
Delete "$INSTDIR\tmp\ZertifikatsKonsole.msc"

-Stu

blue_raptor
16th June 2005 10:03 UTC

Originally posted by Afrow UK
Also, I think the Delete's should be:
Delete "$INSTDIR\tmp\ImportAssistentScript.vbs"
Delete "$INSTDIR\tmp\ZertifikatImport.vbs"
Delete "$INSTDIR\tmp\ZertifikatsKonsole.msc"

-Stu

Oh yes! You're right. Thanks!!