Vider un dossier

Le
Youri Ligotmi
Bonjour

Je cherche le moyen en vbs de vider un dossier des fichiers et
sous-dossiers (vides ou non) qu'il contient.
Merci pour votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
jbongran
Le #676916
"Youri Ligotmi" 469bdf01$0$12383$
Bonjour

Je cherche le moyen en vbs de vider un dossier des fichiers et
sous-dossiers (vides ou non) qu'il contient.
Merci pour votre aide
Sub DeleteArbo(folderpath)

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(folderpath)
fso.deleteFile(folderpath)
Set fso = Nothing
End Sub
Call DeleteArbo("D:test*.*")

Youri Ligotmi
Le #676915
"Youri Ligotmi" 469bdf01$0$12383$
Bonjour

Je cherche le moyen en vbs de vider un dossier des fichiers et
sous-dossiers (vides ou non) qu'il contient.
Merci pour votre aide
Sub DeleteArbo(folderpath)

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(folderpath)
fso.deleteFile(folderpath)
Set fso = Nothing
End Sub
Call DeleteArbo("D:test*.*")


Merci bcp, ça fonctionne pour le mieux


Publicité
Poster une réponse
Anonyme