> > Hi,
> >
> > A while back I got this great code from this forum and it works really well for uploading to an FTP site. The problem is, I can't figure out how to get it to upload to anything but the root folder.
> >
> > Anyone know how I can modify to upload to a folder several levels down from the root?
> >
> > Thanks.
> >
> > Jill Lindgren
> >
> > ****************************************************************************************
> > *: FTP UPLOAD CODE:
> >
> > PARAMETERS lcFileName
> >
> > Private pcNazwaZb,pcNazwaZbLoc,lpszServerName,lpszUsername,lpszPassword,;
> > pcPathNazwa,pcNazwaZbWysLoc,pcPathWysNazwa
> >
> >
> > #DEFINE INTERNET_OPEN_TYPE_DIRECT 1
> > #DEFINE INTERNET_INVALID_PORT_NUMBER 0
> > #DEFINE INTERNET_SERVICE_FTP 1
> > #DEFINE INTERNET_FLAG_PASSIVE 0x08000000
> > #DEFINE FILE_ATTRIBUTE_NORMAL 0x00000080
> > #DEFINE FTP_TRANSFER_TYPE_BINARY 0x00000002
> > #DEFINE FTP_ERROR "Error 1"
> > #DEFINE FTP_KOMENT "Error 2"
> > #DEFINE FTP_TRANSFER_TYPE_ASCII 0x00000001
> > #DEFINE INTERNET_FLAG_TRANSFER_ASCII FTP_TRANSFER_TYPE_ASCII
> > SET STEP ON
> >
> > DECLARE Integer InternetOpen IN WinINet ;
> > string lpszAgent, integer dwAccessType, string lpszProxyName, ;
> > string lpszProxyBypass, integer dwFlags
> >
> > DECLARE Integer InternetConnect IN WinINet ;
> > integer hInternet, string lpszServerName, ;
> > integer nServerPort, string lpszUsername, ;
> > string lpszPassword, integer dwService, ;
> > integer dwFlags, integer dwContext
> >
> > DECLARE INTEGER FtpPutFile IN wininet;
> > INTEGER hConnect,;
> > STRING lpszLocalFile,;
> > STRING lpszNewRemoteFile,;
> > INTEGER dwFlags,;
> > INTEGER dwContext
> >
> > DECLARE integer InternetCloseHandle IN WinINet ;
> > integer hInternet
> >
> > DECLARE INTEGER FtpGetCurrentDirectory IN wininet;
> > INTEGER hFtpSession,;
> > STRING @ lpszDirectory,;
> > INTEGER @ lpdwCurrentDirectory
> >
> > DECLARE INTEGER FtpSetCurrentDirectory IN wininet;
> > INTEGER hFtpSession,;
> > STRING @ lpszDirectory
> >
> > WAIT WINDOW "Sending file via FTP" nowait
> >
> > hInternet = InternetOpen('Ftp',INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0)
> >
> > IF hInternet = 0
> > = MESSAGEBOX(FTP_ERROR,64,FTP_KOMENT)
> > RETURN
> > EndIf
> >
> >
> > lpszServerName = ALLTRIM(tblsettings.ftpaddr)
> > lpszUsername = ALLTRIM(tblsettings.user)
> > lpszPassword = ALLTRIM(tblsettings.pass)
> > lpszDirectory = "web/GlobalWebCart/Stores/factoryservices/www/images/"
> >
> > pcNazwaZb = lcFilename
> > pcNazwaZbLoc= lcFilename
> > hConnect = InternetConnect(hInternet, lpszServerName, ;
> > INTERNET_INVALID_PORT_NUMBER, ;
> > lpszUsername, lpszPassword, ;
> > INTERNET_SERVICE_FTP, 0, 0)
> >
> > IF hConnect = 0
> > = InternetCloseHandle(hInternet)
> > = MESSAGEBOX(FTP_ERROR,64,FTP_KOMENT)
> > RETURN
> > ENDIF
> >
> > ** lpszDirectory = ''
> > ** lpdwCurrentDirectory = 0
> >
> > LOCAL cBuffer, nBufsize
> > nBufsize = 260
> > cBuffer = REPLICATE(CHR(0), nBufsize)
> > nRetCode = FtpGetCurrentDirectory(hConnect, @cBuffer, @nBufsize)
> >
> > nRetCode = FtpSetCurrentDirectory(hConnect,'dirname/upload')
> >
> > nBufsize = 260
> > cBuffer = REPLICATE(CHR(0), nBufsize)
> >
> > nRetCode = FtpGetCurrentDirectory(hConnect, @cBuffer, @nBufsize)
> >
> > nRetCode = FtpPutFile(hConnect,pcNazwaZbLoc,pcNazwaZb,INTERNET_FLAG_TRANSFER_ASCII,0)
> > = InternetCloseHandle(hInternet)
> >
> > MESSAGEBOX("FTP sent")
> > Return
>
> Should you use this as your target directory?
>

lpszDirectory = "web/GlobalWebCart/Stores/factoryservices/www/images/"
> nRetCode = FtpSetCurrentDirectory(hConnect,lpszDirectory)

>
>
> Mike Gagnon
> Refox XI +(English version)

ahhhh.. yes.. DUH. I can't believe I didn't see that.
Thanks for showing me the obvious.