Λόγω της απώλειας μου δεδομένα μου περισσότερο από ό, τι once είδα ότι post files μου στο σκληρό δίσκο is δικαίωμα, διότι αυτό you share αυτό είναι αυτό που μένει, οπότε ίσως θα βρείτε άρθρα αυτού του είδους, συμπεριλαμβανομένου αυτού του άρθρου, το οποίο περιέχει Class ιδέα βρίσκεται στο το βιβλίο Αντικειμενοστρεφής προγραμματισμός, που tried σε λίγες μέρες.
Κλασικό γραμμένο σε VB.Net και ψάχνει για τον αριθμό των αρχείων που βρίσκονται σε μια συγκεκριμένη θέση χρησιμοποιώντας το αρχείο ημερομηνία, το μέγεθος, ή Amtdadtha και ο ίδιος ο κώδικας εξηγεί
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 Class '/ / Get Αριθμός αρχεία σε συγκεκριμένο φάκελο - License: Public Domain Δημόσια υπερφόρτωση Λειτουργία GetFiles (ByVal Max Όπως ακέραιο αριθμό, ByVal Min Όπως ακέραιο αριθμό, ByVal PATH Όπως String) Όπως Integer = Max Max * 1024 * 1024 «να μετατρέψει MB για την Byte Min = Min * 1024 * 1024 «να μετατρέψει MB για την Byte Dim αρχεία () Όπως String αρχεία = System. IO. Directory. GetFiles (PATH) Dim i, σε αντίθεση Όπως Integer Για i = 0 Για να UBound (αρχεία) Dim F1 Όπως Νέο Σύστημα. IO. Fileinfo (αρχεία (i)) Αν F1. Μήκος <Max Και F1. Length> Min Τότε counter + = 1 End If Next Return (counter) End Function Δημόσια υπερφόρτωση Λειτουργία GetFiles (ByVal επίκαιρης Ως ημερομηνία, ByVal FromDate Ως ημερομηνία, ByVal PATH Όπως String) Όπως Για i ακεραίου »για να πάρει τα αρχεία Nuumber Ημερομηνία Με Δημ. αρχεία () Όπως String αρχεία = System. IO. Directory. GetFiles (PATH) Dim i, σε αντίθεση Όπως Integer = 0 Για να UBound (αρχεία) Dim F1 Όπως Νέο Σύστημα. IO. Fileinfo (αρχεία (i)) Αν F1. CreationTime. <toDate Ημερομηνία και F1. CreationTime. Date> FromDate Τότε counter + = 1 End If Next Return (counter) End Function Δημόσια υπερφόρτωση Λειτουργία GetFiles ( ByVal ext Όπως String, ByVal PATH Όπως String) Όπως Integer «να πάρει τα αρχεία Nuumber Με Εσωτ αρχεία Dim () Όπως String αρχεία = System. IO. Directory. GetFiles (PATH," *. "+ ext) Dim i, σε αντίθεση Όπως Integer Για i = 0 Για να UBound (αρχεία) counter + = 1 Next Return (counter) End Function End Class
Για να βεβαιωθείτε ότι το έργο του Classic
Πληκτρολογήστε τον κωδικό τα ακόλουθα, σε κάθε πλήκτρο
Dim DllFiles As New CountFiles()
MsgBox(DllFiles.GetFiles("dll", "c:/windows"))
Θα έρθει για να σας τον αριθμό των αρχείων με την επέκταση DLL στο φάκελο c: / windows
Ελπίζω ότι κάποιος αξιοποιηθούν σε αυτή την κατηγορία
