[vb] programme qui liste les sous dossiers d un dossier

programme qui liste les sous dossiers d un dossier [vb] - VB/VBA/VBS - Programmation

Marsh Posté le 08-10-2003 à 17:19:38    

Bonjour  
 
je voudrais faire un programme qui liste les sous dossier d un repertoire et qui me ressorte ceux qui excede 500mo disons et qui envoie par mail un message " veuillez vide votre repertoire " au propiétaire  
 
merci pour vos suggestions

Reply

Marsh Posté le 08-10-2003 à 17:19:38   

Reply

Marsh Posté le 08-10-2003 à 17:39:16    

utilise les Controles DirListBox et DriveListBox et utilise la touche F1 sur FileSystemObject.
 
P.S. il existe déjà un programme qui fait ça et qui s'appelle treesize


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 08-10-2003 à 19:40:02    

merci je vais me debrouiller

Reply

Marsh Posté le 08-10-2003 à 20:23:58    

http://www.devguru.com/Technologie [...] jects.html
 
L'objet "Scripting.FileSystemObject" porpose des objets dont "Folder" qui fera ce que tu veux. Par contre, je ne me souvient plus du nom du composant à lier... Tu peux faire un CreateObject si tu trouves pas.
 
Petit exemple :
 


dim fso, fol, sfol
set fso = CreateObject("Scripting.FileSystemObject" )
set fol = fso.GetFolder("c:\Program Files" )
for each sfol in fol
    if sfol.Size > 500 * 1024 * 1024 then
        Text1.Text = Text1.Text & sfol.Path & vbCrLf
    end if
next

Reply

Marsh Posté le 09-10-2003 à 00:11:48    

Quelques infos ici.

Reply

Marsh Posté le 09-10-2003 à 10:33:29    

le compo s'appelle Microsoft Scripting Runtime.
 
de toute façon si tu passes par des CreateObject, t'as pas besoin de le référencer :D
 
Ce compo est installé avec VB6 mais aussi par IE si ma mémoire est bonne.

Reply

Marsh Posté le 09-10-2003 à 11:33:16    

Oui, et c'est IE qui le met à jour.
 
Sinon, ouais, les CreateObject c'est bien pratique :D
Mais niveau perfs c'est moyen (bon, tu me diras, c'est pas bien grave en VB) mais surtout, l'IME de VB6 ne reconnaît pas les objets quand on les crée avec un CreateObject et ça c'est chiant :D

Reply

Marsh Posté le 09-10-2003 à 11:39:00    

on a déjà débattu là-dessus :D (dans la FAQ en plus :D)
 
perso c'est early binding sauf cas exceptionnels :)

Reply

Marsh Posté le 09-10-2003 à 11:43:26    

moi les cas exceptionnels c'est surtout quand le composant n'est pas forcément installé, comme ça je plante pas, et je peux décider quoi faire si la creation de l'objet échoue (parcequ'en early binding, je sais pas comment on peut faire... faudra que je regarde la FAQ tiens :D)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed