+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اختصار للكود (/showthread.php?tid=19866)
اختصار للكود - bidaya - 03-04-17
السلام عليكم ورحمة الله تعالى وبركاته
كود :
Dim filname As String = ".\Btn"
' شرط ادا كان الملف موجود
If File.Exists(filname) = True Then
SetAttr(filname, FileAttribute.Hidden)
Else
End Ifبحيث يكون مختصر
وشكرا
RE: اختصار للكود - abdualla - 03-04-17
ممكن تضع العملية في دالة تعيد لك 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)
RE: اختصار للكود - silverlight - 03-04-17
عليك أن تقرأ جميع الملفات و تضعها في مصفوفة ثم تقوم بعمل loop باستخدام جملة For ...... Next و تحصل علي كل ملف ثم تقوم ب التعامل مع كل ملف
انصحك باستخدام FileInfo Class و DirectoryInfo Class للحصول علي الملفات الموجودة تحت فولدر معين حيث أن
FileInfo ها تساعدك علي تحديد Attribute الخاص بكل ملف قبل محاولة تعديل هذا Attribute
DirectoryInfo به روتين تستطيع منه استرجاع جميع الملفات الموجودة تحت فولد ما