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



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


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