دانلود شدن یه فولدر و نشان دادن آن در پروگرس بار

[St4r-S4t]

اقای ایرون فیت دستم به دامنت کمک کن این فولدررو دانلود کنم؟

[amin]

سلام
شما یه فایل لیست باکس بنداز رو فرم بعد
به این صورت مسیر بهش بده

کد:

file1.path="c:\"

بعد فایلهای درون این شاخه رو درون یک لیست بهت میده

کد:

For i = 0 To File1.ListCount - 1
  strFilePath = File1.Path & "\" & File1.List(i)
  'اين مسير هر فايل هست strFilePath
Next i

[amin]

اينم يه راه ديگه كه حسابي بري حال كني :wink:

برای کپی کردن پاک کردن انتقال دادن فایل ها و شاخه ها همچنین خواندن متن فایلها و ...
تو وی بی منوی project\refrences این دو گزینه رو انتخاب کن
Microsoft Scripting Runtime
MicrosoftScriplet Library
بعد برای نوشتن کد باید متغیری به این صورت تعریف کرد

کد:

dim ss as new filesystemObject

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

کد:

ss.copyFile "Path1" , "path2" , false

قسمت سوم اگر true باشد در صورت وجود فایل قبلی همنام replace می کند

کد:

ss.CopyFolder

r
هم به همین صورت کار م یکند
نکته:

کد:

ss.copyfile "c:\Dir1\*.*" , "D:\Dir2\"

همه فایل های درون مسیر اول را به مسیر دوم کپی می کند

[Iron_Fist]

امين جان مشكل ايشون در ضمينه اينترنته نه ويندوز

ببين جناب St4r-S4t چند راه براي شما وجود داره :
1.اينكه بياي و يه تابعي و يا كامپوننتي گير بياري كه اين كار رو بكنه
2.بياي و يه فانكشن درست كني كه بياد و سورس صفحه فلدر رو بخونه
و مسير فايل هاي مورد نظر كه در صفحه است رو بهت بده و بعد تو بياي و
يكي يكي در همون فانكشن اين فايل ها رو دانلود كني

چيز سختي نيست وقت يكم كار و زمان مي خواهد
من هم متاسفانه وقتش رو ندارم كه برات بنويسم
ولي مي تونم در حد توانم راهنماييت كنم

[amin]

:oops:

[St4r-S4t]

فكر كنم پيدا كردنه يه ocx آسون تر باشه!؟!
البته گرفتن نام تمام فايل هاي داخل يك پوشه هم خيلي بد نيست!؟! :wink:

[St4r-S4t]

دوستان كسي براي دوكاري كه بالا گفتم سراغ نداره؟ :?: