تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار بخصوص اختصار اسم الصنف في شاشة المبيعات ملهمـ 2 80 02-01-18, 06:23 PM
آخر رد: ملهمـ
  مشكلة في اسم اختصار البرنامج في سطح المكتب طالب 22 1 371 01-08-16, 09:56 PM
آخر رد: طالب 22
  هل يوجد كود عكسي للكود التالي Ahmed Gandos 2 399 31-03-16, 04:14 PM
آخر رد: mawad
  عاوز حل للكود ده ahmedelkady 5 919 17-07-14, 03:35 AM
آخر رد: ahmedelkady
  هل اختصار الكود له اثار جانبيه ali.alfoly 2 484 29-07-13, 08:09 PM
آخر رد: الشاكي لله
  طريقة عمل اختصار للازرار مثلا ctrl+s للضغط عل زر حفظ الباشا شكر 9 2,282 22-07-13, 08:47 PM
آخر رد: الباشا شكر
  اكثر من 100 حلقه تكراريه اود اختصار للكود مدري 6 724 18-05-13, 05:04 AM
آخر رد: learning.net
  زر اختصار مدري 5 774 26-04-13, 01:00 AM
آخر رد: مدري
  عايز كود اختصار للاومر البرنامج عن طريق الكيبورد فيجوال بيسك 2010 kamel sobhy 5 3,759 06-04-13, 01:27 AM
آخر رد: الشخصية المجهولة
  مطلوب عمل برنامج يرتبط بموقع اختصار الروابط ويقوم باختصار الروابط من الدسكتوب ehabob 1 447 19-02-13, 10:39 PM
آخر رد: ehabob

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


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