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