procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if radiobutton1.Checked then
NMFTP1.Mode(MODE_ASCII)
else
NMFTP1.Mode(MODE_BYTE);
nmftp1.uploadunique(directorylistbox1.Directory+'/'+filelistbox1.Items[filelistbox1.itemindex]);
end;
begin
if radiobutton1.Checked then
NMFTP1.Mode(MODE_ASCII)
else
NMFTP1.Mode(MODE_BYTE);
nmftp1.uploadunique(directorylistbox1.Directory+'/'+filelistbox1.Items[filelistbox1.itemindex]);
end;
nmftp1.uploadunique(directorylistbox1.Directory+'\'+filelistbox1.Items[filelistbox1.itemindex]);
如果你还想用原来的文件名可以用upload:
nmftp1.upload(directorylistbox1.Directory+'\'+filelistbox1.Items[filelistbox1.itemindex], filelistbox1.Items[filelistbox1.itemindex]);