[bidaya]

السلام عليكم ورحمة الله تعالى وبركاته

كود :

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

                   End If

هذا الكود لملف واحد فقط اريد تطبيق الكود على اكثر من ملف
بحيث يكون مختصر
وشكرا

[abdualla]

ممكن تضع العملية في دالة تعيد لك True إذا نجحت وFalse إذا لم يجد الملف أو لم فشلت مثل

PHP كود :

Function SetFileHidden(fn As String) As Boolean
        If IO.File.Exists(fn) = True Then
            Try
                SetAttr(fn, FileAttribute.Hidden)
                Return True
            Catch ex As Exception
            End Try
        End If
        Return False
    End Function 


ويمكن أن تستدعيها باسم الملف بدون الاهتمام بالنتيجة المعادة مثل

PHP كود :

SetFileHidden(filname) 


[silverlight]

عليك أن تقرأ جميع الملفات و تضعها في مصفوفة ثم تقوم بعمل loop باستخدام جملة For ...... Next و تحصل علي كل ملف ثم تقوم ب التعامل مع كل ملف
انصحك باستخدام FileInfo Class و DirectoryInfo Class للحصول علي الملفات الموجودة تحت فولدر معين حيث أن

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