Fichier moins de 100 ko vb6

[Résolu/Fermé]
Signaler
Messages postés
844
Date d'inscription
mercredi 29 juillet 2009
Statut
Membre
Dernière intervention
6 novembre 2015
-
Messages postés
844
Date d'inscription
mercredi 29 juillet 2009
Statut
Membre
Dernière intervention
6 novembre 2015
-
Bonjour,

dans un dossier j'aimerais trier les fichier de plus de 100 ko (juste trier par rapport a la taille sans spécialement connaitre le nom du fichier)


merci d'avance

4 réponses

Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 171
Bonjour,

Il y a la fonction FileLen("cheminetnomdufichier") qui retourne la taille en octects du fichier.

1 Ko = 1024 octets

;o)
Messages postés
844
Date d'inscription
mercredi 29 juillet 2009
Statut
Membre
Dernière intervention
6 novembre 2015
31
oui ca je l'avais vu mais mon probleme c'est qu'il y a plein de fichier (dans un dossier ) et j'aimerais les "séparer"
le nom des fichier est variables.


Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 171
Re,

Voilà un exemple pour parcourir un dossier et ses sous dossiers. A toi de l'adapter.

N'oublie pas de mettre la référence Microsoft Scripting RunTime

Private Sub scanAllFolder(ByVal pFullPathFolder As String)  'pFullPathFolder = chemin complet du répertoire
Dim dossier As Folder
Dim ofso As FileSystemObject
Dim myTab()   ' Tableau où sont stockés les chemins et noms des fichiers

    Set ofso = New FileSystemObject
    Set dossier = ofso.GetFolder(pFullPathFolder)
    Call checkFolder(dossier, myTab())  'Appel de la fonction récursive pour parcourir les fichiers et sous dossiers du répertoire
    Set ofso = Nothing
    
End Sub

Private Sub checkFolder(ByVal dossier As Folder, ByRef mTab())
Dim fichier As File
Dim sousdossier As Folder
Dim max As Long

    'Si c'est un fichier on le stock dans le tableau mTab()
    For Each fichier In dossier.Files
        'Redimensionnement du tableau et affection de nom du fichier
        ReDim Preserve mTab(max)
        mTab(max) = fichier
        max = max + 1
    Next
    
    'Appel récursif de la fonction si c'est un sous dossier
    For Each sousdossier In dossier.SubFolders
        Call checkFolder(sousdossier, mTab())
    Next

End Sub


;o)
Messages postés
844
Date d'inscription
mercredi 29 juillet 2009
Statut
Membre
Dernière intervention
6 novembre 2015
31
merci beaucoup je pense pouvoir m'adapter avec ca .

merci polux31

post résolu