FTP_Sample_V6

[SteveStation]

http://www.indigorose.com/forums/showthread.php?t=13133
i am using this ftp sample but i have a problem i think the solutions is simple but i dont findit. i want to the comand Dialog.FileBrowse open the file automatic to i dont nedd to press open and i dont want that the mesage apear, (File Already Exists!", "Overwrite the existing file) i want to replace the file automatic


if FTP.IsConnected() then

-- ask the user to browse for a file
tbFiles = Dialog.FileBrowse(true, "Select File to Upload", "C:\\fttp\\test", "All Files (*.*)|*.*|", "test.txt", "", false, true)

-- check for an error
if tbFiles == nil then
-- an error occurred
err = Application.GetLastError();
Dialog.Message("Error", _tblErrorMessages[err], MB_OK, MB_ICONEXCLAMATION);
else
-- no error...
-- did the user cancel out of the dialog?
if tbFiles[1] ~= "CANCEL" then
-- they didn't cancel...we should have a file in the table
-- we can assume it's the first item since we set MultipleSelection to false
-- in the Dialog.FileBrowse action
strSourceFile = tbFiles[1];

-- split the file path into its various parts (path, filename, extension, etc.)
tbPathParts = String.SplitPath(strSourceFile);

-- ...now build a filename out of the parts
strDestFile = tbPathParts.Filename..tbPathParts.Extension;

-- flag to control whether to go through with the upload ("My Kingdom for a break command!")
local bUpload = true;

-- does the remote file already exist?
if FTP.GetFileInfo(strDestFile) ~= true then

-- destination file already exists, ask the user if it's ok to replace it
local nResult = Dialog.Message("File Already Exists!", "Overwrite the existing file?", MB_OKCANCEL, MB_ICONQUESTION, MB_DEFBUTTON1);

if nResult == IDCANCEL then
-- user pressed cancel
bUpload = false;
end
end

if bUpload then

-- show the status dialog and enable the cancel button
StatusDlg.ShowCancelButton();
StatusDlg.Show();

-- upload the file
FTP.Upload(strSourceFile, strDestFile);
err = Application.GetLastError();

-- hide the status dialog
StatusDlg.Hide();

if err == FTP.OK then
-- update the directory list
UpdateList();
else
-- FTP.Upload error!
-- append the error message to the log
Paragraph.SetText("Log_paragraph", Paragraph.GetText("Log_paragraph").."* Error: " .. _tblErrorMessages[err] .."\r\n");
end
end
end
end
else
-- not connected
Dialog.Message("Not Connected", "You must connect to an FTP server before you can upload a file.", MB_OK, MB_ICONEXCLAMATION);
end
Im sory for my bad ingles

[RizlaUK]

just comment out the section of code that would set "bUpload" to false


if FTP.IsConnected() then
-- ask the user to browse for a file
tbFiles = Dialog.FileBrowse(true, "Select File to Upload", "C:\\fttp\\test", "All Files (*.*)|*.*|", "test.txt", "", false, true)
-- check for an error
if tbFiles == nil then
-- an error occurred
err = Application.GetLastError();
Dialog.Message( "Error", _tblErrorMessages[err], MB_OK, MB_ICONEXCLAMATION);
else
-- no error...
-- did the user cancel out of the dialog?
if tbFiles[1] ~= "CANCEL" then
-- they didn't cancel...we should have a file in the table
-- we can assume it's the first item since we set MultipleSelection to false
-- in the Dialog.FileBrowse action
strSourceFile = tbFiles[1];
-- split the file path into its various parts (path, filename, extension, etc.)
tbPathParts = String.SplitPath(strSourceFile);
-- ...now build a filename out of the parts
strDestFile = tbPathParts.Filename..tbPathParts.Extension;
-- flag to control whether to go through with the upload ("My Kingdom for a break command!")
local bUpload = true;
-- does the remote file already exist?
---if FTP.GetFileInfo(strDestFile) ~= true then
-- destination file already exists, ask the user if it's ok to replace it
--local nResult = Dialog.Message("File Already Exists!", "Overwrite the existing file?", MB_OKCANCEL, MB_ICONQUESTION, MB_DEFBUTTON1);
--if nResult == IDCANCEL then
-- user pressed cancel
--bUpload = false;
--end
--end

if bUpload then
-- show the status dialog and enable the cancel button
StatusDlg.ShowCancelButton();
StatusDlg.Show();
-- upload the file
FTP.Upload(strSourceFile, strDestFile);
err = Application.GetLastError();
-- hide the status dialog
StatusDlg.Hide();
if err == FTP.OK then
-- update the directory list
UpdateList();
else
-- FTP.Upload error!
-- append the error message to the log
Paragraph.SetText( "Log_paragraph", Paragraph.GetText( "Log_paragraph").. "* Error: " .. _tblErrorMessages[err] .. "\r\n");
end
end
end
end
else
-- not connected
Dialog.Message( "Not Connected", "You must connect to an FTP server before you can upload a file.", MB_OK, MB_ICONEXCLAMATION);
end

output enhanced with AMS Code Pretty (http://www.indigorose.com/forums/showthread.php?t=19409)

[SteveStation]

Tanks that resolve my problem in (File Already Exists!", "Overwrite the existing file), but as can i open the file without having to click in the open buton, in my case say (abrir) becouse my windows is portuguese.

[RizlaUK]

yeah, as with any file explorer, just double click the file

[SteveStation]

I again
i stil need help, RizlaUK i dont want to double click in
the file i just want to browse the file, i try to modify the line
tbFiles = Dialog.FileBrowse(true, "Select File to Upload", "C:\\fttp\\test", "All Files (*.*)|*.*|", "test.txt", "", false, true)
To
tbFiles = "C:\\fttp\\test\\test.txt"
but dont work
and i try to use the
FTP.Upload("C:\\fttp\\test\\test.txt
")
but it wil upload the file but if the file is duplicated wil not upload.

[RizlaUK]

try deleting the file first, then upload the new file

replace the commented out code with this

-- does the remote file already exist?
if FTP.GetFileInfo(strDestFile) ~= true then
FTP.Delete(strDestFile);
end

output enhanced with AMS Code Pretty (http://www.indigorose.com/forums/showthread.php?t=19409)

[SteveStation]

Tanks it work perfectly

[RizlaUK]

glad you got it working :yes