På grunn av mitt tap av mine data mer enn en gang jeg så at innlegget mitt filene på harddisken som er rett fordi det som du deler det er det som er igjen, så kanskje vil du finne artikler av denne typen, inkludert denne artikkelen, som inneholder klasse idé funnet i boken Objektorientert programmering, som prøvde i et par dager siden.
Classic skrevet i VB.Net og leter etter antall filer som ligger på et bestemt sted ved å bruke filen dato, størrelse, eller Amtdadtha og koden forklarer seg selv
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 Klasse CountFiles '/ / Get Files nummer i bestemt mappe - Lisens: Public Domain Public overbelaster Funksjon GetFiles (ByVal Max As Integer, ByVal Min As Integer, ByVal bane som String) As Integer = Max Max * 1024 * 1024 "Å Konvertere MB til Byte Min = Min * 1024 * 1024 "Å Konvertere MB til Byte Dim filer () Som String filer = System. IO. Directory. GetFiles (PATH) Dim i, teller As Integer For i = 0 For å UBound (filer) F1 Dim Som Ny System. IO. FileInfo (filer (i)) Hvis F1. lengde <Max Og F1. Length> Laveste Så counter + = 1 End If Next Tilbake (telleren) End Function Public overbelaster Funksjon GetFiles (ByVal todate Som Dato, ByVal FromDate Som Dato, ByVal bane som String) As Integer 'for å få filer Nuumber Dato Dim filer () Som String filer = System. IO. Directory. GetFiles (PATH) Dim i, teller As Integer For i = 0 For å UBound (filer) Dim F1 som ny System. IO. FileInfo (filer (i)) Hvis F1. CreationTime. Date <toDate Og F1. CreationTime. Date> FromDate Så counter + = 1 End If Next Tilbake (telleren) End Function Public overbelaster funksjon GetFiles ( ByVal ext Som String, ByVal bane som String) As Integer 'for å få filer Nuumber Ved forlengelse Dim filer () Som String filer = System. IO. Directory. GetFiles (PATH, "*." + EXT) Dim i, teller As Integer For i = 0 For å UBound (filer) mot + = 1 Neste Tilbake (telleren) End Function End Class
Sørg for å Classic
Skriv inn koden nedenfor i hvilken som helst knapp
Dim DllFiles As New CountFiles()
MsgBox(DllFiles.GetFiles("dll", "c:/windows"))
Vil komme til deg antall filer med filtypen DLL i mappen c: / windows
Jeg håper at noen utnyttet i denne kategorien
