تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اختصار للكود
#1
السلام عليكم ورحمة الله تعالى وبركاته


كود :
 Dim filname As String = ".\Btn"
       ' شرط ادا كان الملف موجود
       If File.Exists(filname) = True Then
           SetAttr(filname, FileAttribute.Hidden)
       Else

                   End If
هذا الكود لملف واحد فقط اريد تطبيق الكود على اكثر من ملف
بحيث يكون مختصر
وشكرا
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#2
ممكن تضع العملية في دالة تعيد لك True إذا نجحت وFalse إذا لم يجد الملف أو لم فشلت مثل
PHP كود :
Function SetFileHidden(fn As String) As Boolean
        
If IO.File.Exists(fn) = True Then
            
Try
                
SetAttr(fnFileAttribute.Hidden)
                Return 
True
            
Catch ex As Exception
            End 
Try
        
End If
        Return 
False
    End 
Function 

ويمكن أن تستدعيها باسم الملف بدون الاهتمام بالنتيجة المعادة مثل
PHP كود :
SetFileHidden(filname
الرد
تم الشكر بواسطة: bidaya
#3
عليك أن تقرأ جميع الملفات و تضعها في مصفوفة ثم تقوم بعمل loop باستخدام جملة For ...... Next و تحصل علي كل ملف ثم تقوم ب التعامل مع كل ملف
انصحك باستخدام FileInfo Class و DirectoryInfo Class للحصول علي الملفات الموجودة تحت فولدر معين حيث أن

FileInfo ها تساعدك علي تحديد Attribute الخاص بكل ملف قبل محاولة تعديل هذا Attribute
DirectoryInfo به روتين تستطيع منه استرجاع جميع الملفات الموجودة تحت فولد ما
الرد
تم الشكر بواسطة: bidaya


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo تطوير بسيط للكود dasktop 3 136 05-10-18, 12:29 AM
آخر رد: elgokr
  هل يمكن اختصار هذا الكود blida02 6 332 29-05-18, 04:29 PM
آخر رد: blida02
  استفسار بخصوص اختصار اسم الصنف في شاشة المبيعات ملهمـ 2 414 02-01-18, 06:23 PM
آخر رد: ملهمـ
  مشكلة في اسم اختصار البرنامج في سطح المكتب طالب 22 1 506 01-08-16, 09:56 PM
آخر رد: طالب 22
  هل يوجد كود عكسي للكود التالي Ahmed Gandos 2 556 31-03-16, 04:14 PM
آخر رد: mawad
  عاوز حل للكود ده ahmedelkady 5 1,127 17-07-14, 03:35 AM
آخر رد: ahmedelkady
  هل اختصار الكود له اثار جانبيه ali.alfoly 2 597 29-07-13, 08:09 PM
آخر رد: الشاكي لله
  طريقة عمل اختصار للازرار مثلا ctrl+s للضغط عل زر حفظ الباشا شكر 9 2,880 22-07-13, 08:47 PM
آخر رد: الباشا شكر
  اكثر من 100 حلقه تكراريه اود اختصار للكود مدري 6 915 18-05-13, 05:04 AM
آخر رد: learning.net
  زر اختصار مدري 5 1,044 26-04-13, 01:00 AM
آخر رد: مدري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم