ftp上传的问题
IdFTP1.Put(OpenDialog1.FileName, ExtractFileName(OpenDialog1.FileName));
用idftp的上传功能，现在默认的存放文件夹是放在E盘，但我想在上传的同时新建一个跟文件名字相同的文件夹，应该怎么写？

还有就是如果我想把这个已上传的文件的存放路径显示在edit.text上又应该怎么写？



[解决办法]
edit1.text:= 'e:\ '+copy(extractfilename(OpenDialog1.FileName),length(extractfilename(OpenDialog1.FileName))-length(extractfileext(extractfilename(OpenDialog1.FileName))))