Zbog mog gubitka moje podatke više puta sam vidio da je post moje datoteke na disk je right, jer ono što dijele je ono što je lijevo, pa možda ćete naći članke ovoga tipa, uključujući i ovaj članak, koji sadrži klase ideja naći u knjizi Objektno-orijentirano programiranje, koji je pokušao u nekoliko dana.
Klasična zapisano u VB.Net i tražite broj datoteke koje se nalaze na određenom mjestu pomoću datoteke datum, veličinu, ili Amtdadtha i kod sama objašnjava
Klasa CountFiles
'/ / Dobiti Kartoteka Broj u određenu mapu - Dozvola: javne domene
GetFiles ( ByVal Max As Integer , ByVal Min As Integer , ByVal PATH As String ) As Integer Javni preopterećenja funkcija GetFiles (ByVal Max As Integer, ByVal Min As Integer, ByVal PUT As String) As Integer
1024 * 1024 'To Convert MB to Byte Max = Max * 1024 * 1024 'Za Pretvoriti MB za Byte
1024 * 1024 'To Convert MB to Byte Min = min * 1024 * 1024 'Za Pretvoriti MB za Byte
( ) As String Dim datoteke () As String
. Directory . GetFiles ( PATH ) datoteka = sustava. IO. imenik. GetFiles (PATH)
Integer Dim i, counter As Integer
0 To UBound ( files ) Za i = 0 To UBound (slika)
System. IO . FileInfo ( files ( i ) ) Dim F1 što je novi sustav. IO. Fileinfo (datoteke (i))
< Max And F1. Length > Min Then Ako F1. Dužina <Max I F1. Length> Min Tada
brojac + = 1
Kraj Ako je
Sljedeći
counter ) Povratak (counter)
End Function
GetFiles ( ByVal toDate As Date , ByVal FromDate As Date , ByVal PATH As String ) As Integer Javni preopterećenja funkcija GetFiles (ByVal toDate su datum, ByVal FromDate su datum, ByVal PUT As String) As Integer
'Da biste dobili Kartoteka Nuumber Po datumu
( ) As String Dim datoteke () As String
. Directory . GetFiles ( PATH ) datoteka = sustava. IO. imenik. GetFiles (PATH)
Integer Dim i, counter As Integer
0 To UBound ( files ) Za i = 0 To UBound (slika)
System. IO . FileInfo ( files ( i ) ) Dim F1 što je novi sustav. IO. Fileinfo (datoteke (i))
. Date < toDate And F1. CreationTime . Date > FromDate Then Ako F1. CreationTime. <toDate Datum i F1. CreationTime. Date> FromDate Tada
brojac + = 1
Kraj Ako je
Sljedeći
counter ) Povratak (counter)
End Function
GetFiles ( ByVal ext As String , ByVal PATH As String ) As Integer Javni preopterećenja funkcija GetFiles (ByVal ext As String, ByVal PUT As String) As Integer
'Da biste dobili Kartoteka Nuumber By proširenje
( ) As String Dim datoteke () As String
. Directory . GetFiles ( PATH, "*." + ext ) datoteka = sustava. IO. imenik. GetFiles (PATH, "*." + ext)
Integer Dim i, counter As Integer
0 To UBound ( files ) Za i = 0 To UBound (slika)
brojac + = 1
Sljedeći
counter ) Povratak (counter)
End Function
End Class Kako biste bili sigurni rad Classic
Upišite kod sljedeće u bilo koju tipku
Dim DllFiles As New CountFiles()
MsgBox(DllFiles.GetFiles("dll", "c:/windows"))
Hoće li doći do vas broj datoteka s nastavkom DLL u mapi c: / windows
Nadam se da je netko iskorišten u ovoj kategoriji
. Net , klase , datoteke , vb.net