I have a agent that creates a file and sends it with ftp… This is made for Win plattforms…How can I make it work with MAC OS?
Any similar solution in mac os?
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><Create Connection Files><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Dim strFTPini As String
Dim strFTPbat As String
’ Remove, testing only
counter = 0
strFTPini = "ftp.ini"
strFTPbat = "ftp.bat"
'Get an unused file number so LotusScript can open a file.
fileNum% = Freefile()
'<<<<<<<<<<<< Create ini file >>>>>>>>>>>>>
Open strFTPini For Output As fileNum%
ftpuser = AnvNamn
ftppassword = Pass
ftpaddress = URL
counter = counter + 1
Print #fileNum%, "open " & ftpaddress & Chr(13) & Chr(10) & ftpuser & Chr(13) & Chr(10) & ftppassword & Chr(13) & Chr(10) & "binary" & Chr(13) & Chr(10) & "prompt n" & Chr(13) & Chr(10) & "mput C:\" & ftpfile & Chr(13) & Chr(10) & "bye"
Close #fileNum%
'<<<<<<<<<<<< /Create ini file >>>>>>>>>>>>>
'<<<<<<<<<<<< Create bat file >>>>>>>>>>>>>
Open strFTPbat For Output As fileNum%
BatString= "%SystemRoot%\system32\ftp -s:ftp.ini"
counter = counter + 1
Print #fileNum%, BatString
Close #fileNum%
'<<<<<<<<<<<< Create bat file >>>>>>>>>>>>>
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><Create Connection Files><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><Run Ftp bat><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Dim taskId As Integer
taskId% = Shell("ftp.bat", 7)
boxType& = MB_OK + MB_ICONINFORMATION
answer% = Messagebox("Tredjepartsannons, skickad!", boxType&, "Tredjeparts annonsering")
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><Run Ftp bat><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<