Script doesn't wprk

[PcExpert]

Hi all,

Why doesn't this script work?

CODE

$1 = InputBox("test", "question 1")

$2 = InputBox("test", "question 2")

$3 = InputBox("test", "question 3")

InetGet("ftp://user:pass@IPADRESS/questions.txt", @TempDir)

FileWriteLine(@TempDir & "questions.txt", "answere 1: " & $1)

FileWriteLine(@TempDir & "questions.txt", "answere 2: " & $2)

FileWriteLine(@TempDir & "questions.txt", "answere 3: " & $3)

FileWriteLine(@TempDir & "questions.txt", "--------------------------------------------")

FileCopy(@TempDir & "questions.txt", "ftp://user:pass@IPADRESS/questions.txt")

FileDelete(@TempDir & "questions.txt")

I can't find out why.

Edited December 28, 2006 by PcExpert

[Jos]

Hi all,

Why doesn't this script work?

CODE

$1 = InputBox("test", "question 1")

$2 = InputBox("test", "question 2")

$3 = InputBox("test", "question 3")

InetGet("ftp://user:pass@IPADRESS/questions.txt", @TempDir)

FileWriteLine(@TempDir & "questions.txt", "answere 1: " & $1)

FileWriteLine(@TempDir & "questions.txt", "answere 2: " & $2)

FileWriteLine(@TempDir & "questions.txt", "answere 3: " & $3)

FileWriteLine(@TempDir & "questions.txt", "--------------------------------------------")

FileCopy(@TempDir & "questions.txt", "ftp://user:pass@IPADRESS/questions.txt")

FileDelete(@TempDir & "questions.txt")

I can't find out why.

@TempDir contains a directory name ... not a file name !

[PcExpert]

Can you show me what you mean?

[Xenobiologist]

Hi,

maybe:

$1 = InputBox("test", "question 1")
$2 = InputBox("test", "question 2")
$3 = InputBox("test", "question 3")
InetGet("ftp://user:pass@IPADRESS/questions.txt", @TempDir & "\somethinghere.extension")
FileWriteLine(@TempDir & "\questions.txt", "answere 1: " & $1)
FileWriteLine(@TempDir & "\questions.txt", "answere 2: " & $2)
FileWriteLine(@TempDir & "\questions.txt", "answere 3: " & $3)
FileWriteLine(@TempDir & "\questions.txt", "--------------------------------------------")
FileCopy(@TempDir & "\questions.txt", "ftp://user:pass@IPADRESS/questions.txt")
FileDelete(@TempDir & "\questions.txt")

So long,

Mega

[PcExpert]

If I open the questions.txt file from the ftp server it is empty..

Maybe it isn't possible what I want to do?

[Xenobiologist]

Hi,

how far do you get? Which step doesnt work?

So long,

Mega

$1 = InputBox("test", "question 1")
$2 = InputBox("test", "question 2")
$3 = InputBox("test", "question 3")
InetGet("ftp://user:pass@IPADRESS/questions.txt", @TempDir & "\questions.txt")
FileWriteLine(@TempDir & "\questions.txt", "answere 1: " & $1)
FileWriteLine(@TempDir & "\questions.txt", "answere 2: " & $2)
FileWriteLine(@TempDir & "\questions.txt", "answere 3: " & $3)
FileWriteLine(@TempDir & "\questions.txt", "--------------------------------------------")
FileCopy(@TempDir & "\questions.txt", "ftp://user:pass@IPADRESS/questions.txt")
FileDelete(@TempDir & "\questions.txt")

[PcExpert]

I think it goes wrong when the 4th line is excuted. Because otherwise the filecopy line woul'd work.

[Xenobiologist]

Hi,

what about testing it step by step.

$1 = InputBox("test", "question 1")
$2 = InputBox("test", "question 2")
$3 = InputBox("test", "question 3")
If InetGet("ftp://user:pass@IPADRESS/questions.txt", @TempDir & "\questions.txt", 1) = 0 Then
    MsgBox(16, "Error", "Download")
    Exit (0)
EndIf
ConsoleWrite(1 & @LF)
FileWriteLine(@TempDir & "\questions.txt", "answere 1: " & $1)
FileWriteLine(@TempDir & "\questions.txt", "answere 2: " & $2)
FileWriteLine(@TempDir & "\questions.txt", "answere 3: " & $3)
FileWriteLine(@TempDir & "\questions.txt", "--------------------------------------------")
ConsoleWrite(2 & @LF)
If FileCopy(@TempDir & "\questions.txt", "ftp://user:pass@IPADRESS/questions.txt") = 0 Then
    MsgBox(16, "Error", "FileCopy")
    Exit (0)
EndIf
FileDelete(@TempDir & "\questions.txt")

So long,

Mega

[PcExpert]

1 error occured: DOWNLOAD

[Xenobiologist]

Hi,

so know you know where to start.

So long,

Mega

I cannot test it, cause I have no ftp here. :">

[PcExpert]

OK, thanks for your help anyway

[PcExpert]

I just detected an interesting line in the ftp server logfile:

Dec 28 14:17:10 FTP server: user anonymous quit by session timeout

What could have made the timeout to occure