Entries tagged dengan 'kelas'
01
Juni

File Count My Kelas

06/1/2009 Ahmed Mahmoud Tidak ada Komentar Pemrograman 2009/01/06 Mahmoud Ahmed

Karena kerugian saya data saya lebih dari sekali aku melihat bahwa posting file saya di hard disk yang benar karena apa yang Anda berbagi adalah apa yang tersisa, jadi mungkin Anda akan menemukan artikel dari jenis ini, termasuk artikel ini, yang berisi idea Kelas ditemukan dalam buku Object-Oriented Programming, yang berusaha dalam beberapa hari yang lalu.

Classic ditulis dalam VB.Net dan mencari jumlah file yang terletak di lokasi tertentu menggunakan tanggal file, ukuran, atau Amtdadtha dan kode itu sendiri menjelaskan 

  Kelas CountFiles
 '/ / Dapatkan Nomor File dalam Folder Tertentu - Lisensi: Domain Publik
     GetFiles ( ByVal Max As Integer , ByVal Min As Integer , ByVal PATH As String ) As Integer Fungsi Umum Overloads GetFiles (Max ByVal As Integer, ByVal Min As Integer, PATH ByVal As String) As Integer
         1024 * 1024 'To Convert MB to Byte Max = Max * 1024 * 1024 'Untuk Mengkonversi MB ke Byte
         1024 * 1024 'To Convert MB to Byte Min = Min * 1024 * 1024 "Untuk Mengkonversi MB untuk Byte
         ( ) As String Dim file () As String
         . Directory . GetFiles ( PATH ) file = Sistem. IO. Direktori PATH. GetFiles ()
         Integer Dim i, counter Sebagai Integer
         0 To UBound ( files ) Untuk i = 0 Untuk UBound (file)
             System. IO . FileInfo ( files ( i ) ) Dim F1 Sebagai Sistem Baru.. IO Fileinfo (file (i))
             < Max And F1. Length > Min Then Jika F1. Panjang <Max Dan F1. Length> Min Lalu
                 counter + = 1
             End If
         Berikutnya
         counter ) Kembali (counter)
     End Function
     GetFiles ( ByVal toDate As Date , ByVal FromDate As Date , ByVal PATH As String ) As Integer Fungsi Overloads Publik GetFiles (ByVal todate Sebagai Date, ByVal FromDate Sebagai Date, ByVal PATH As String) As Integer
         'Untuk Mendapatkan File Nuumber Dengan Tanggal
         ( ) As String Dim file () As String
         . Directory . GetFiles ( PATH ) file = Sistem. IO. Direktori PATH. GetFiles ()
         Integer Dim i, counter As Integer
         0 To UBound ( files ) Untuk i = 0 Untuk UBound (file)
             System. IO . FileInfo ( files ( i ) ) Dim F1 Sebagai Sistem Baru.. IO Fileinfo (file (i))
             . Date < toDate And F1. CreationTime . Date > FromDate Then Jika F1. CreationTime <toDate. Date Dan F1. CreationTime. FromDate Date> Lalu
                 counter + = 1
             End If
         Berikutnya
         counter ) Kembali (counter)
     End Function
     GetFiles ( ByVal ext As String , ByVal PATH As String ) As Integer Fungsi Umum Overloads GetFiles (ext ByVal As String, ByVal PATH As String) As Integer
         'Untuk Mendapatkan File Nuumber Dengan Ekstensi
         ( ) As String Dim file () As String
         . Directory . GetFiles ( PATH, "*." + ext ) file = Sistem. IO. Direktori PATH. GetFiles (, "*." + ext)
         Integer Dim i, counter As Integer
         0 To UBound ( files ) Untuk i = 0 Untuk UBound (file)
             counter + = 1
         Berikutnya
         counter ) Kembali (counter)
     End Function
 Akhir Kelas

Untuk memastikan pekerjaan Classic
Ketik kode berikut di tombol apapun

Dim DllFiles As New CountFiles()
MsgBox(DllFiles.GetFiles("dll", "c:/windows"))

Akan datang kepada Anda jumlah file dengan ekstensi DLL di folder c: / windows
Saya berharap bahwa seseorang dieksploitasi dalam kategori ini

, , ,