OVH Cloud OVH Cloud

VBS / pb avec DeleteFolder

1 réponse
Avatar
Kevin Lomax
Bonjour tout le monde,

J'utilise dans un script vbs la fonction suivante :

Sub DeleteAFolder(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(filespec)
End Sub

Rien de plus classique, cela fonctionne, mais j'ai des gros pb de
lenteurs.. en effet, le repertoire que j'efface peut contenir plusieurs
Go ( au max 4 pour l'instant ) , cela dure actuellement plus d'une
dizaine de minuite, et je n'ai pas de visu dessus !

Je ne sais pas si quelqu'un a deja rencontré le pb ? ( je precise que le
folder se trouve sur un share reseau ).

N'y a t il pas une autre fonction plus "sauvage" qui evite de passer les
fichiers en revu ( car c'est ce qu'il fait avec DeleteFolder je pense..)

Merci d'avance.

KL

1 réponse

Avatar
ng
Salut,

Essaye plutot de poster ton message sur news:microsoft.public.fr.scripting
qui est dédié au scripting (batch, vbs, js...)


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Kevin Lomax wrote:
Bonjour tout le monde,

J'utilise dans un script vbs la fonction suivante :

Sub DeleteAFolder(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(filespec)
End Sub

Rien de plus classique, cela fonctionne, mais j'ai des gros pb de
lenteurs.. en effet, le repertoire que j'efface peut contenir
plusieurs Go ( au max 4 pour l'instant ) , cela dure actuellement
plus d'une dizaine de minuite, et je n'ai pas de visu dessus !

Je ne sais pas si quelqu'un a deja rencontré le pb ? ( je precise que
le folder se trouve sur un share reseau ).

N'y a t il pas une autre fonction plus "sauvage" qui evite de passer
les fichiers en revu ( car c'est ce qu'il fait avec DeleteFolder je
pense..)
Merci d'avance.

KL