ftp上传的有关问题

ftp上传的问题IdFTP1.Put(OpenDialog1.FileName,ExtractFileName(OpenDialog1.FileName))用idftp的上传功

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))))