محبوبترینها
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
خرید بلیط چارتر هواپیمایی ماهان _ ماهان گشت
سیگنال در ترید چیست؟ بررسی انواع سیگنال در ترید
بهترین هدیه تولد برای متولدین زمستان: هدیه‌های کاربردی برای روزهای سرد
در خرید پارچه برزنتی به چه نکاتی باید توجه کنیم؟
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1827675035
كپي فولدر و محتوا توسط VB6 ؟ -
واضح آرشیو وب فارسی:سایت ریسک: t=2825">كپي فولدر و محتوا توسط VB 6 ؟ giahchin 10 شهريور 1382, 14:47با سلام، من مي خوام در Visual Basic 6 يك فولدر با تمام محتوياتش را در يك مسير ديگه كپي كنم ولي در Help ويژوال بيسيك فقط دستورات ساده كپي را پيدا كردم كه تنها يك فايل را ميتونه كپي كنه ولي دستوري براي كپي يك فولدر با تمام فايلها و ساب فولدرهاي داخل آن پيدا نكردم. لطفا اگه كسي مي تونه من رو راهنمايي كنه. parshia 23 مهر 1382, 16:14salam fek konam in bedardet bekhoreh Syntax [ object.CopyFolder source, destination [, overwrite VA PART HAYE DIGASH INEH KEH MANZOURE (FileSystemObject) <-------object source destination KEH MANZOURE (Boolean )< -------overwrite INAM YE MESAL: FileSystemObject . CopyFolder c:mydocumentsletters ,"* "c: empfolder" parshia 23 مهر 1382, 16:16ye chizam mikhastam ezafeh konam inkeh man bishtar az in mikhastam barat tozih bedam ama hamisheh neveshtan to in site mano khasteh mikoneh, akheh aslan nemifahmam che jouri bayad nevesht vaghty keh mikham CODE barat benevisam bar aks mineviseh baraye hamin man kalafeh misham be hamin khater natounestam bishtar barat to zih bedam ageh khast behem mail bezan ta barat engilisisho beferestam :( giahchin 23 مهر 1382, 18:04سلام به دوست عزيز اولاٌ از راهنمايي كه كردي ممنونم . دوماٌ در رابطه با مشكل كد نوشتن بايد خدمدتون عرض كنم كه راه داره . راهش اينه كه اول متن كد رو در Tonepad ويندوز يا هر محيطي كه راحتي بنويس و بعد اون رو كپي كن . بعد همونجا كه داري متن نامه رو تايپ مي كني يك سري كليد بالاي متن مشاهده مي كني كه يكي از اونها به نام code . كليد code رو يكبار بزن يك اينتر بزن و دوباره كليد code رو بزن . حالا بين دو علامت كه گذاشتي متن در حافظه ات رو Paste كن . براي اطمينان از درستي متن ميتوني قبل از ارسال كليد پيش نمايش رو بزني اگه درست بود نامه رو ارسال كن . اين هم يك مثال : object.CopyFolder source, destination [, overwrite ] FileSystemObject . CopyFolder kavian 08 آبان 1382, 22:07سلام giahchin عزيز تابع زير كه به زبان VB هست از Microsoft Scripting Runtime Library براي كپي كردن يك Folder استفاده ميكنه. بنابراين براي استفاده از تابع زير اول بايد در VB از منوي Project و بعد References گزينه Microsoft Scripting Runtime Library رو به پروژه خودتون اضافه كنيد. Function CopyFolder(ByVal lsSource As String, ByVal lsDestination As String, _ Optional ByVal lbOverWriteFolder As Boolean) As Boolean On Error GoTo CopyFolder_EH Dim fso As New Scripting.FileSystemObject Dim lbOverwrite As Boolean If fso.FolderExists(lsSource) Then If IsMissing(lbOverWriteFolder) Then lbOverwrite = False Else lbOverwrite = lbOverWriteFolder End If fso.CopyFolder lsSource, lsDestination, lbOverwrite CopyFolder = True Else CopyFolder = False End If CopyFolder_Exit: Set fso = Nothing Exit Function CopyFolder_EH: CopyFolder = False Resume CopyFolder_Exit End Function و اين هم يك مثال براي استفاده از اين تابع: Private Sub Command 1_Click() CopyFolder "C:MyFolder", "D:MyFolder", False End Sub اين مثال فولدر MyFolder و محتويات اون رو از درايو C در درايو D كپي ميكنه و پارامتر آخر (lbOverWriteFolder) كه يك مقدار Boolean هست در صورت True بودن اگر اين فولدر وجود داشته باشه اون رو Replace ميكنه. موفق باشيد. giahchin 09 آبان 1382, 10:42درود به كاويان ، از راهنمايي كامل شما ممنونم . حتما٬ امتحانش مي‌كنم .
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1402]
-
گوناگون
پربازدیدترینها