ايران ويج

صفحه‌ها: 1 2

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

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

کد: 
file1.path="c:\"

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

کد: 
For i = 0 To File1.ListCount - 1

  strFilePath = File1.Path & "\" & File1.List(i)

  'اين مسير هر فايل هست strFilePath

Next i

اينم يه راه ديگه كه حسابي بري حال كني :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\"

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

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

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

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

:oops:

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

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

صفحه‌ها: 1 2

St4r-S4t

amin

amin

Iron_Fist

amin

St4r-S4t

St4r-S4t