کمک در مورد این سورس

[mOSTEFEA]

سلام دوستان اگه میشه این سورس زیپ کردن فایله طوری اونو برام تغییر بدید که یک آدرس مشخص رو زیپ کنه توی این سورس باید دکمه Add file بزنی فایل رو انتخاب کنی بعد بزات زیپش کنه می خوام یک جوری تغییرش بدید که یک آدرس از پیش تعین[/size] شده بخواد

[mOSTEFEA]

سلام دوستان کسی نیست کمک کنه به خدا کارم گیره یه زحمتی بکشید یکیتون این سورس رو تغییر بدید.متشکر از همه دوستان

[Di Di]

سوالت واضح نیست

اگر می خوای همیشه از یک آدرس خاص، یک فایل خاص رو انتخاب و زیپ کنه:

کافیه اون قسمت از برنامه که از کاربر سوال می پرسه رو حذف کنی و فقط به جای قسمت آخرش که آدرس و نام فایل

رو به تابع ساخت فایل زیپ می ده با آدرس و اسم مورد نظرت جابجاکنی

همینطور اگر می خواهید همیهش فایل های مورد نظرتون رو در یک آدرس خاص دخیره کنه

کافیه اون قسمتی که دز کاربر آدرس می پرسه رو کامنت کنید و خودتون آدرس ثابت رو به تابع بدید

الان کجاش مشکل دارید؟

[mOSTEFEA]

Di Di جان یک جوری خودت تغییرش بده که همیشه یک آدرس مشخص رو ذخیره کنه.خواهشا

---

می خوام همیشه فایل های پوشه ای به این آدرس C:\new folder رو زیپ کنه

[mOSTEFEA]

دوستان کسی نیست دست ما رو بگیره

[Di Di]

ای بابا!!!

اگه فقط یک بار تریس کرده بودی برنامه روی می فهمیدی باید چکار کنی!!

گل پسر به اول Command1_Click این کدها رو اضافه کن

کد:

MYNAMES.s(a) = "C:\New Folder\File1.txt"
  MYNAMES.s(a + 1) = vbNullString
  aantal = a + 1
List1.AddItem  "C:\New Folder\File1.txt"
  ProgressBar1.Max = ProgressBar1.Max + FileLen( "C:\New Folder\File1.txt")

[mOSTEFEA]

Di Di جان ممنون که جواب دادی هنوز همون مشکل رو دارم .من می خوام توی سیستمی که نرم افزار داره اجرا میشه فایل های داخل پوشه C:\new را کلا زیپ کنه نه این که از قبل اسم فایل رو بهش بدی
مثلا اگه آدرس C:\new بود فایل ها و پوشه ها رو زیپ کنه چون اسم فایل داخل پوشه معلوم نیست

[Di Di]

شما باید آدرس ثابت رو بگیری و تمام فایل های داخل اون شاخه رو جستجو کرده و

اسمشئن رو به همین روشی که بالا گذاشتم به برنامه بدی.

برای پیدا کردن اسم فایلها می تونی از توابع findFristFile )API و FindNextFile )استفاده کنی.

برای اینها هم سورس های نمونه خوبی داخل فروم وجود داره.

[mOSTEFEA]

Di Di ممنون که پاسخ میدی متشکر.
واقعا خیلی کمکم کردی دمت گرم خیلی مردی