Getting error in my script

[kpu]

Below is the code and the error message.

When I change $path to = @TempDir & "\temp\" I get the following error on the second time around. The file Classes.nfo is basically a text file with regkeys taht I'm exporting. If I change $path to just "" so no change, it works fine when I run it from the same directory classes.nfo is in.

Error:

$line = FileReadLine($line)

Error: Invalid file handle used.

DirCreate(@TempDir & "\temp")
$path = @TempDir & "\temp\"
_exportClassesRegKeys()

Func _ExportClassesRegKeys()
    $file = FileOpen($path & "classes.nfo", 0)
    If $file = -1 Then
        MsgBox(0, "Error: Classes", "Unable to open "& $path & $file)
        Exit
    EndIf
    $i = 0
    While 1
        $i = $i + 1
        $exportfile = $path & "export" & $i & ".reg"
        $line = FileReadLine($file)
        If @error = -1 Then ExitLoop
        $cmd_export = "reg export " & $hkcu & $rKey1 & $line & " " & $exportfile
        RunWait(@ComSpec & " /c " & $cmd_export, "", @SW_HIDE)
    WEnd
EndFunc  ;==>_ExportClasses

Anyone have any ideas?

Edited December 7, 2005 by kpu

[DaleHohm]

When I change $path to = @TempDir & "\temp\" I get the following error on the second time around.

What do you mean "on the second time around"?

Dale

[kpu]

What do you mean "on the second time around"?

Dale

On the second loop in the "While 1" It reads the file line in the classes.nfo and exports regkeys until there are no more lines. So on the second loop it errors. It only export 1 file "export1.reg" then errors out and dies.

[ken82m]

Try this, I changed the line where you set $cmd_export nfor my testing. You'll probably have to play with that again. Other than that this should work for you, I was able to export three keys, no errors.

Classes.nfo File-

.323

.386

.3g2

DirCreate(@TempDir & "\temp")
$path = @TempDir & "\temp\"
_exportClassesRegKeys()

Func _ExportClassesRegKeys()
    $file = FileOpen($path & "classes.nfo", 0)
    If $file = -1 Then
        MsgBox(0, "Error Classes", "Unable to open " & $path & "classes.nfo" & @CR & "Return Code: " & $file)
        Exit
    EndIf
    $i = 0
    While 1
        $i = $i + 1
        $exportfile = $path & "export" & $i & ".reg"
        $line = FileReadLine($file, $i)
        If @error = -1 Then ExitLoop
        $cmd_export = "reg export HKCR\" & $line & " " & $exportfile
        RunWait(@ComSpec & ' /C "' & $cmd_export & '"', @SystemDir , @SW_HIDE)
    WEnd
EndFunc

Edited December 8, 2005 by ken82m

[seandisanti]

Try this, I changed the line where you set $cmd_export nfor my testing. You'll probably have to play with that again. Other than that this should work for you, I was able to export three keys, no errors.

Classes.nfo File-

.323

.386

.3g2

DirCreate(@TempDir & "\temp")
$path = @TempDir & "\temp\"
_exportClassesRegKeys()

Func _ExportClassesRegKeys()
    $file = FileOpen($path & "classes.nfo", 0)
    If $file = -1 Then
        MsgBox(0, "Error Classes", "Unable to open " & $path & "classes.nfo" & @CR & "Return Code: " & $file)
        Exit
    EndIf
    $i = 0
    While 1
        $i = $i + 1
        $exportfile = $path & "export" & $i & ".reg"
        $line = FileReadLine($file, $i)
        If @error = -1 Then ExitLoop
        $cmd_export = "reg export HKCR\" & $line & " " & $exportfile
        RunWait(@ComSpec & ' /C "' & $cmd_export & '"', @SystemDir , @SW_HIDE)
    WEnd
EndFunc

might be a good idea to toss in a FileClose($file)

[kpu]

might be a good idea to toss in a FileClose($file)

Thanks.. Forgot about this one

I found it! It was in another part of my code. For some reason it would error on the line I mentioned, but it was actually because of a way I was closing another File...

Thanks for your help!

[seandisanti]

Thanks.. Forgot about this one

I found it! It was in another part of my code. For some reason it would error on the line I mentioned, but it was actually because of a way I was closing another File...

Thanks for your help!

cool. glad you got it working...