fichier moins de 100 ko vb6 Résolu

Question

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

Polux31 · Answer

Bonjour,

Il y a la fonction FileLen("cheminetnomdufichier") qui retourne la taille en octects du fichier.

1 Ko = 1024 octets

;o)

anonyme 94 · Answer

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.

Polux31 · Answer

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)

anonyme 94 · Answer

merci beaucoup je pense pouvoir m'adapter avec ca .

merci polux31

post résolu

Fichier moins de 100 ko vb6

4 réponses

Votre réponse