View Full Version : سوال: مشکل با ایجاد پوشه تکراری ذر indy ftp
soft-c
جمعه 12 دی 1393, 11:04 صبح
من با indy ftp می خوام یک فابل را ارسال کنم . منتها قبل از ارسال فایل از طریق دستور ذیل یک پوشه در محل سرور ایجاد می کنم .
IdFTP1.MakeDir()
مشکل اینجا است که اگر پوشه از قبل وجود داشته باشد خطا میده که این پوشه قبلا ایجاد شده ولی من می خوام که اگر پوشه تکراری است روی اون مجددا عمل بازنویسی را انجام بده و پوشه را جایگزین کنه .
آیا راهی برای این کار هست ؟
Mask
جمعه 12 دی 1393, 11:42 صبح
یه راهش اینه که قبل از ساخت یه exist بگیرید و اگه وجود داشت دیلیتش کنید و بعد شروع به ساخت کنید.
ابوالفضل عباسی
چهارشنبه 08 بهمن 1393, 15:05 عصر
امید وارم این دستور کمک کتون که فایل تکراری رو هم قبول میکنه
IdFTP1.Connect
در اینجا هاست رو می گیرد=={ IdFTP1.Host := Edit4.Text
IdFTP1.Username := Edit2.Text
IdFTP1.Password := Edit3.Text
application.ProcessMessages
IdFTP1.Connect;}
این ادیت ادرس فایل رو میگیرد=== f := Edit1.Text
if IdFTP1.Connected then
begin
application.ProcessMessages
IdFTP1.ChangeDir('/')
ProgressBar1.Visible := True
ProgressBar1.Max :=10
application.ProcessMessages
IdFTP1.Put(f, ExtractFileName(f))
application.ProcessMessages
soft-c
جمعه 03 مهر 1394, 21:22 عصر
یه راهش اینه که قبل از ساخت یه exist بگیرید و اگه وجود داشت دیلیتش کنید و بعد شروع به ساخت کنید.
وقتی می خوام فایل را پاک کنم چون یک سری اطلاعات داخل اون هست خطا می گیره ، چطوری می تونم اول محتویات داخل فولدر را پاک کنم . بعد خود فوادر را ؟
Mask
شنبه 04 مهر 1394, 07:19 صبح
وقتی می خوام فایل را پاک کنم چون یک سری اطلاعات داخل اون هست خطا می گیره ، چطوری می تونم اول محتویات داخل فولدر را پاک کنم . بعد خود فوادر را ؟
قائدتا باید بشه. البته اگه فایلهای درون پوشه در حالت اجرا نباشند
ابوالفضل عباسی
چهارشنبه 08 مهر 1394, 11:18 صبح
با سلام.
با این برنامه میتونی برنامه هایی که باز هستند رو ببندی.
اول اون برنامه رو با یک شرط اگر برنامه باز هست ببند و بعد اون فایل رو با فرمان delete پاکش کن و فایل جدید رو براش بفرست.
دانلود KillTask_A.K (http://s3.picofile.com/file/8214801300/KillTask_A_K.zip.html)
امیدوارم مشکلت حل شده باشه
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.