Problemer med kode, der mangler et par check
' Eksekvere ftp applikationen med Forbindelse filen som parameter.Set WSX = Shell.Exec(COMMAND_FTP & checkFile)
' Her samles fejlene til FtpErrorCheck filen.
Set ReturnCode = WSX.StdErr
' Her samles dataene til FtpLogCheck filen.
Set Output = WSX.stdOut
' Her skrives fejlene til FtpErrorCheck filen.
Set objFile = FSO.OpenTextFile(strErrorCheck, 2, True)
objFile.Write(ReturnCode.ReadAll())
objFile.Close()
' Her skrives dataene til FtpLogCheck filen
Set objFile = FSO.OpenTextFile(strLogCheck, 2, True)
objFile.WriteLine("Test")
objFile.Write(Output.ReadAll())
objFile.Close()
' Her Læses FtpLogCheck Filen for at finde ud af om det gik planmæssigt. Efter at have lavet en del test,
' Ved vi at, hvis alt er gået godt slutter filen på linje syv med Teksten BYE, så derfor tester vi om den gør det.
' Åbner FtpLogcheck filen for læsning
set f = fso.OpenTextFile(strLogCheck, 1)
content = f.ReadAll() *1
f.close
set f = nothing
arrLines4 = Split(content,vbCrLf)
if NOT ucase(left(ltrim(arrLines4(6)),3)) = "BYE" THEN *2
EXPLANATION = "Der kan ikke Oprettes forbindelse til Host " & host
getFTP = True
1) Jeg Får en fejl hvis f er tom
2) Jeg får fejl hvis arrLines4 ikke indeholder 6 linjer
Hvordan får jeg lige lavet et check på de 2 ting