Amaiko वेबलॉग

 Public Overloads Function GetFiles ( ByVal Max As Integer , ByVal Min As Integer , ByVal PATH As String ) As Integer Max = Max * 1024 * 1024 'To Convert MB to Byte Min = Min * 1024 * 1024 'To Convert MB to Byte Dim files ( ) As String files = System. IO . Directory . GetFiles ( PATH ) Dim i, counter As Integer For i = 0 To UBound ( files ) Dim F1 As New System. IO . FileInfo ( files ( i ) ) If F1. Length < Max And F1. Length > Min Then counter += 1 End If Next Return ( counter ) End Function Public Overloads Function GetFiles ( ByVal toDate As Date , ByVal FromDate As Date , ByVal PATH As String ) As Integer 'To Get Files Nuumber By Date Dim files ( ) As String files = System. IO . Directory . GetFiles ( PATH ) Dim i, counter As Integer For i = 0 To UBound ( files ) Dim F1 As New System. IO . FileInfo ( files ( i ) ) If F1. CreationTime . Date < toDate And F1. CreationTime . Date > FromDate Then counter += 1 End If Next Return ( counter ) End Function Public Overloads Function GetFiles ( ByVal ext As String , ByVal PATH As String ) As Integer 'To Get Files Nuumber By Extention Dim files ( ) As String files = System. IO . Directory . GetFiles ( PATH, "*." + ext ) Dim i, counter As Integer For i = 0 To UBound ( files ) counter += 1 Next Return ( counter ) End Function End Class वर्ग 'CountFiles / लाइसेंस में विशिष्ट संख्या प्राप्त फ़ाइलें फ़ोल्डर - पब्लिक डोमेन सार्वजनिक overloads स्ट्रिंग के रूप में कार्य ByVal मैक्स (GetFiles पूर्णांक न्यूनतम के रूप में ByVal, पूर्णांक पथ के रूप में ByVal,) * पूर्णांक के रूप में अधिकतम = अधिकतम 1024 * 1024 के लिए' एमबी कन्वर्ट करने के लिए न्यूनतम बाइट = * * न्यूनतम 1024 1024 'एमबी पूर्णांक कन्वर्ट करने के लिए (स्ट्रिंग) के रूप में फाइल बाइट धुंधला फाइलें = काउंटर के रूप में मैं. IO सिस्टम. निर्देशिका. GetFiles (धुंधला) PATH मैं के लिए = 0 UBound करने के लिए (फ़ाइलें) F1 के रूप में धुंधला नई प्रणाली. IO. FileInfo फ़ाइलें ((i)) यदि F1 लम्बाई. <Max और F1. Length> Min फिर काउंटर + = 1 अंत अगर अगला लौटें (काउंटर) समाप्ति समारोह सार्वजनिक समारोह overloads GetFiles (ByVal के रूप में todate दिनांक, ByVal FromDate फ़ाइलों के रूप में दिनांक पथ ByVal, 0 = स्ट्रिंग के रूप में काउंटर, मैं धुंधला () के लिए फ़ाइलें Nuumber जाओ 'के रूप में पूर्णांक द्वारा दिनांक. GetFiles. निर्देशिका फ़ाइलें (धुंधला) के रूप में स्ट्रिंग फाइलें = IO. सिस्टम) पथ के रूप में मैं के लिए पूर्णांक UBound () नई प्रणाली के रूप में धुंधला F1. IO. FileInfo फ़ाइलें ((i) F1) यदि CreationTime. दिनांक. <toDate और F1. CreationTime. Date> FromDate फिर काउंटर + = 1 अंत अगर अगला लौटें (काउंटर) समाप्ति समारोह overloads सार्वजनिक समारोह GetFiles ( ext के रूप में ByVal स्ट्रिंग, के रूप में स्ट्रिंग PATH ByVal के रूप में) 'पूर्णांक पूर्णांक के रूप में, मैं करने के लिए काउंटर द्वारा फ़ाइलों Extention धुंधला Nuumber प्राप्त फ़ाइलें ()) मंद + ext फाइल = स्ट्रिंग के रूप में सिस्टम. IO. निर्देशिका. GetFiles (पथ, "*." मैं के लिए = 0 UBound करने के लिए (फ़ाइलें) काउंटर + = 1 अगला लौटें (काउंटर) समाप्ति समारोह समाप्ति कक्षा