Entrées avec le tag '. Net'
01
Juin

Compter mes fichiers de classe

06/1/2009 Ahmed Mahmoud Pas de commentaire programmation 06.01.2009 Ahmed Mahmoud

A cause de ma perte de mes données plus d'une fois j'ai vu ce poste mes fichiers sur le disque est juste parce que vous partagez est ce qui reste, alors peut-être vous trouverez des articles de ce type, y compris cet article, qui contient l'idée de classe dans le livre Object-Oriented Programming, qui a tenté dans un il ya quelques jours.

Classique écrit en VB.Net et la recherche du nombre de fichiers situés dans un endroit précis en utilisant la date du fichier, la taille ou Amtdadtha et le code lui-même explique 

  Classe CountFiles
 »/ / Retourne le nombre de fichiers dans un dossier spécifique - Licence: Domaine Public
     GetFiles ( ByVal Max As Integer , ByVal Min As Integer , ByVal PATH As String ) As Integer Surcharges Public Function GetFiles (Max ByVal As Integer, ByVal mini As Integer, ByVal PATH As String) As Integer
         1024 * 1024 'To Convert MB to Byte Max = Max * 1024 * 1024 'pour la convertir Mo à Byte
         1024 * 1024 'To Convert MB to Byte Min = Min * 1024 * 1024 'pour la convertir Mo à Byte
         ( ) As String fichiers Dim () As String
         . Directory . GetFiles ( PATH ) = Système de fichiers. IO. Directory. GetFiles (PATH)
         Integer Dim i, contre As Integer
         0 To UBound ( files ) Pour i = 0 To UBound (fichiers)
             System. IO . FileInfo ( files ( i ) ) Dim F1 en tant que nouveau système. IO. FileInfo (fichiers (i))
             < Max And F1. Length > Min Then Si F1. <Max Longueur et F1. Length> min puis
                 + Compteur = 1
             End If
         Prochain
         counter ) Retour (compteur)
     End Function
     GetFiles ( ByVal toDate As Date , ByVal FromDate As Date , ByVal PATH As String ) As Integer Surcharges publique Fonction GetFiles (ByVal À ce jour que la date, ByVal fromdate que la date, ByVal PATH As String) As Integer
         »Pour obtenir des fichiers Nuumber Par Date
         ( ) As String fichiers Dim () As String
         . Directory . GetFiles ( PATH ) = Système de fichiers. IO. Directory. GetFiles (PATH)
         Integer Dim i, contre As Integer
         0 To UBound ( files ) I = 0 Pour Pour UBound (fichiers)
             System. IO . FileInfo ( files ( i ) ) Dim F1 en tant que nouveau système. IO. FileInfo (fichiers (i))
             . Date < toDate And F1. CreationTime . Date > FromDate Then Si F1. Date <toDate. CreationTime Et F1. CreationTime. date> fromdate ensuite
                 + Compteur = 1
             End If
         Prochain
         counter ) Retour (compteur)
     End Function
     GetFiles ( ByVal ext As String , ByVal PATH As String ) As Integer Surcharges Public Function GetFiles (poste As String, ByVal PATH As String) As Integer
         »Pour obtenir des fichiers par extension Nuumber
         ( ) As String fichiers Dim () As String
         . Directory . GetFiles ( PATH, "*." + ext ) = Système de fichiers. IO. Directory. GetFiles (PATH, "*." + ext)
         Integer Dim i, contre As Integer
         0 To UBound ( files ) Pour i = 0 To UBound (fichiers)
             + Compteur = 1
         Prochain
         counter ) Retour (compteur)
     End Function
 End Class

Pour s'assurer que le travail de la Classique
Tapez le code suivant dans n'importe quel bouton

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

Viendra-vous le nombre de fichiers avec l'extension DLL dans le dossier C: / windows
J'espère que quelqu'un exploitées dans cette catégorie

, , ,