Fichier moins de 100 ko vb6
Résolu
anonyme 94
Messages postés
878
Statut
Membre
-
anonyme 94 Messages postés 878 Statut Membre -
anonyme 94 Messages postés 878 Statut Membre -
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
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
A voir également:
- Fichier moins de 100 ko vb6
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
4 réponses
Bonjour,
Il y a la fonction FileLen("cheminetnomdufichier") qui retourne la taille en octects du fichier.
1 Ko = 1024 octets
;o)
Il y a la fonction FileLen("cheminetnomdufichier") qui retourne la taille en octects du fichier.
1 Ko = 1024 octets
;o)
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.
le nom des fichier est variables.
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
;o)
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)
