[AccessD] [dba-Tech] FTP

[Rocky Smolin]

Stuart Sorry to say - no cigar. But there's a lot of things I could be
doing wrong. If it can be done without them having to load and install
another program that would be desirable - that's why I chose the windows
FTP.exe

I'll send you the credentials off line.

Thanks again.

r

On Thu, May 4, 2023 at 4:44 PM Stuart McLachlan <stuart at lexacorp.com.pg>
wrote:

> Try this replacement function in the  demo sent earlier.
>
> You need to add another field in usysWeb named WinSCPProg
> It should contain something like:
> C:\Program Files (x86)\WinSCP\WInSCP.exe
>
> If it doesn't work, can you email me the crendentials for your PureFTPd
> server and I'll try to
> work out what is happening.
>
> Function FTPPut(Directory As String, Filename As String) As Boolean
> Const q As String * 1 = """"
> Dim strEXE As String
> Dim strLocalDir As String
> Dim strFName As String
> Dim strList As String
> If Dir(Filename) = "" Then
>    MsgBox Filename & " not found!"
>    Exit Function
> End If
> strLocalDir = Left$(Filename, InStrRev(Filename, "\") - 1)
> If Len(strLocalDir) = 2 Then strLocalDir = strLocalDir & "\"
> strFName = Mid$(Filename, InStrRev(Filename, "\") + 1)
> strList = CurrentProject.Path & "\ftpcmds"
> Open strList For Output As #1
> Print #1, "open ftp://" & DLookup("Login", "usysWEB") & ":" &
> DLookup("PW", "usysWEB") &
> "@" & DLookup("Site", "usysWEB")
> Print #1, "cd " & Directory
> Print #1, "lcd " & strLocalDir
> Print #1, "binary"
> Print #1, "put " & q & strFName & q
> Print #1, "bye "
> Close #1
> strEXE =  q & DLookup("WinSCPProg", "usysWeb") & q & " /console /ini=nul
> /script=" & q &
> strList & q
> ShellWait strEXE, vbNormalFocus  'vbHide
> End Function
>
> If you want to see what is going on, comment out the Print #1, "bye" and
> enter "bye" manually
> in the CLI once you have examined what is happening.
>
>
>
> On 4 May 2023 at 16:01, Rocky Smolin wrote:
>
> > Thank you. I have very little hair left.
> >
> > On Thu, May 4, 2023 at 3:47PM Stuart McLachlan
> > <stuart at lexacorp.com.pg> wrote:
> >
> > > On 4 May 2023 at 15:22, Rocky Smolin wrote:
> > >
> > > > Can WINSCP be used inside of an Access program?
> > > >
> > >
> > > Yes, see
> > > https://winscp.net/eng/docs/scripting
> > >
> > > Combine it with the SHellWait code in the FTP demo I sent
> > > previously.   :)
> > >
> > > Actually, given the issues you are having, I think I'll build  a
> > > version that uses WinSCP before I run into the same problem in the
> > > future.
> > >
> > > Stand by!
> > >
> > >
> > >
> > >
> > >
> > >
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > https://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > https://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>