RE: LotusScript reading files Domino on Linux
"Nur, Mohamed S" <[email protected]> Mon, 4 Dec 2006 15:07:49 +1100
| Newsgroups | gmane.linux.suse.domino |
|---|---|
| Message-ID | <6215401E01247448A306C54F499111F201BE0C7D@WSMSG2103V.srv.dir.telstra.com> |
Hi having problem running the following scripts in suse linux where it
works
Fine under windows.
Any clues...? The path I have is
sPath =3D "/os_backup/smartplan/"=09
sFile =3D "test.txt"
Where in windows
sPath =3D "c:\os_backup\smartplan\"=09
sFile =3D "test.txt"
Scripts below:
________________________________________________________________________
_____________
Dim session As New NotesSession
Dim agentlog As NotesLog
Dim iPos As Integer, iPrevPos As Integer
Dim sPath As String
Dim sFile As String
Dim varFiles As Variant
=09
On Error Goto Error_Handler
sPath =3D "/os_backup/smartplan/"=09
sFile =3D "test.txt"
=09
'Check to see if file exists and return results...=09
Set agentlog =3D New NotesLog("Test Filepath")
Call agentlog.OpenAgentLog
Call agentlog.LogAction("About to test ...")
=09
varFiles =3D Dir$(sPath, 0)
Forall testfile In varFiles =09
Call agentlog.LogAction("Found " & testfile)
If testfile =3D sFile Then
Call agentlog.LogAction("Found file " & sPath &
sFile)
Else
Call agentlog.LogAction("File " & sPath & sFile
& " not found") <=3D=3D I only ever get this message in the agent log
End If
End Forall
=09
Call agentlog.LogAction("Finished")
Call agentlog.Close
=09
Exit Sub
=09
Error_Handler:
Call agentlog.LogAction("An error occurred")
Call agentlog.LogAction("Finished")
Call agentlog.Close
Exit Sub