Observateur
Description
Voila mon 1er code et mon 1er post^^
Alors j'ai fait ce tit code pour pouvoir gere l'accumulation des fichiers et dossiers dans c:\.
En général quand un fichier ce retrouve la il est pas a ca place
ca permet donc de s'en rendre compte asser vite.
hf ^^
Alors j'ai fait ce tit code pour pouvoir gere l'accumulation des fichiers et dossiers dans c:\.
En général quand un fichier ce retrouve la il est pas a ca place
ca permet donc de s'en rendre compte asser vite.
hf ^^
Source / Exemple :
' ----------------------------------------------
' ---------------- By BlaZed -------------------
' ----------------------------------------------
'But du programme
'voir ce que contient un dossier
'voir les dossier et les fichiers
Dim fso, dossier, sous_dossier, fichiers
Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder("C:\")
Set sous_dossier = dossier.SubFolders
Set fichiers = dossier.files
info = "Nom" + vbTab + "Taille" + vbTab + "Date de création" + vbCr
For Each fichier in fichiers
info = info & fichier.Name & vbTab
info = info & fichier.Size & vbTab
info = info & fichier.DateCreated & vbCr
Next
For Each rep in sous_dossier
info = info & rep.Name & vbTab
info = info & rep.Size & vbTab 'Enlever cette ligne en cas d'erreur !access denied!
info = info & rep.DateCreated & vbCr 'vbCr ou vbCrLf en cas de bug
Next
MsgBox info,vbInformation + vbOkOnly + vbApplicationModal + 0,"Info"
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.