Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft effacé tous les fichier d'un dossier "vbscript"

effacé tous les fichier d'un dossier "vbscript"

15 réponses
Avatar
sgroulx
bonjour,
pour effacé tous les fichier d'un dossier dois-je faire absolument

set MyFSO = wscript.createObject("Scripting.FileSystemObject")
Set dossier = Myfso.GetFolder("c:\test")
For Each file In dossier.files
file.delete
Next

ou il y a t'il une autre command
Merci
Sébas
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
sympatix
Si maintenant, comme on peut le supposer en regardant ton script, tu n'as
que des fichiers à supprimer (sans aucun sous-dossier), tu peux aussi faire
ceci:
------------------------
Dossier = "C:Mon dossier"
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFile Dossier & "*.*", True
------------------------

Cordialement
Sympatix

"sgroulx" a écrit dans le message de
news:%23Y6v0Xa%

"sympatix" a écrit dans le message de
news:esikVzZ%
et si ton dossier avait des droits non-hérités tu les perds ;-)
C'est vrai, j'ai pas pensé à ça...tout dépend en fait du contexte

d'utilisation du-dis dossier.
(donc, finalement, la 1ère méthode récursive de Sgroulx est très
bonne...qu'y a-t-il a lui reprocher ? la lenteur, peut-être si le
dossier


est très volumineux ?)


ta tous compris. le dossier est souvent très volumineux. mais jai quand
meme

gardé ma methode.
simple et quand meme efficace.


Cordialement
Sympatix


"Fred" a écrit dans le message de
news:OT4BghZ%
Bonsoir,
et si ton dossier avait des droits non-hérités tu les perds ;-)

"sympatix" a écrit dans le message de
news:



uoZXjNY%
J'ai du mal lire...en fait, pour supprimer le contenu d'un dossier
(fichiers
et sous dossiers) tu peux faire ça:
-----------------------------
Dossier = "C:Mon Dossier"
Set MyFSO = CreateObject("Scripting.FileSystemObject")
MyFSO.DeleteFolder Dossier, True
MyFSO.CreateFolder Dossier
-----------------------------

Cordialement
Sympatix

"sympatix" a écrit dans le message de
news:eBshZFY%
Salut !

Tu peux aussi utiliser la méthode "DeleteFolder" de l'objet FSO:
(suppression du dossier et de son contenu. paramètre à True: efface
également les fichiers et les dossiers cachés.)
-----------------
Set MyFSO = CreateObject("Scripting.FileSystemObject")
MyFSO .DeleteFolder "C:Mon dossier et son contenu", True
-----------------
Doc de Windows Script Host téléchargeable ici:








http://www.microsoft.com/downloads/details.aspx?displaylang=fr&FamilyIDç4494D3-C4E1-4E18-9C6C-0EA28C9A5D9D


Cordialement
Sympatix

"sgroulx" a écrit dans le message de
news:eWVCU9X%
bonjour,
pour effacé tous les fichier d'un dossier dois-je faire
absolument







set MyFSO = wscript.createObject("Scripting.FileSystemObject")
Set dossier = Myfso.GetFolder("c:test")
For Each file In dossier.files
file.delete
Next

ou il y a t'il une autre command
Merci
Sébas
























Avatar
sympatix
Et si tu veux quand même supprimer des sous dossiers, tu peux aussi utiliser
ça:

------------------------------
Dossier = "C:Mon dossier"
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFile Dossier & "*.*", True
Set oDossier = oFso.GetFolder (Dossier)
For Each Sous_Dos in oDossier.SubFolders
oFSO.DeleteFolder Sous_Dos, True
Next
------------------------------
Cordialement
Sympatix

"sympatix" a écrit dans le message de
news:eO0mGra%
Si maintenant, comme on peut le supposer en regardant ton script, tu n'as
que des fichiers à supprimer (sans aucun sous-dossier), tu peux aussi
faire

ceci:
------------------------
Dossier = "C:Mon dossier"
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFile Dossier & "*.*", True
------------------------

Cordialement
Sympatix

"sgroulx" a écrit dans le message de
news:%23Y6v0Xa%

"sympatix" a écrit dans le message de
news:esikVzZ%
et si ton dossier avait des droits non-hérités tu les perds ;-)
C'est vrai, j'ai pas pensé à ça...tout dépend en fait du contexte

d'utilisation du-dis dossier.
(donc, finalement, la 1ère méthode récursive de Sgroulx est très
bonne...qu'y a-t-il a lui reprocher ? la lenteur, peut-être si le
dossier


est très volumineux ?)


ta tous compris. le dossier est souvent très volumineux. mais jai quand
meme

gardé ma methode.
simple et quand meme efficace.


Cordialement
Sympatix


"Fred" a écrit dans le message de
news:OT4BghZ%
Bonsoir,
et si ton dossier avait des droits non-hérités tu les perds ;-)

"sympatix" a écrit dans le message de
news:



uoZXjNY%
J'ai du mal lire...en fait, pour supprimer le contenu d'un dossier
(fichiers
et sous dossiers) tu peux faire ça:
-----------------------------
Dossier = "C:Mon Dossier"
Set MyFSO = CreateObject("Scripting.FileSystemObject")
MyFSO.DeleteFolder Dossier, True
MyFSO.CreateFolder Dossier
-----------------------------

Cordialement
Sympatix

"sympatix" a écrit dans le message de
news:eBshZFY%
Salut !

Tu peux aussi utiliser la méthode "DeleteFolder" de l'objet FSO:
(suppression du dossier et de son contenu. paramètre à True:
efface






également les fichiers et les dossiers cachés.)
-----------------
Set MyFSO = CreateObject("Scripting.FileSystemObject")
MyFSO .DeleteFolder "C:Mon dossier et son contenu", True
-----------------
Doc de Windows Script Host téléchargeable ici:










http://www.microsoft.com/downloads/details.aspx?displaylang=fr&FamilyIDç4494D3-C4E1-4E18-9C6C-0EA28C9A5D9D


Cordialement
Sympatix

"sgroulx" a écrit dans le message de
news:eWVCU9X%
bonjour,
pour effacé tous les fichier d'un dossier dois-je faire
absolument







set MyFSO = wscript.createObject("Scripting.FileSystemObject")
Set dossier = Myfso.GetFolder("c:test")
For Each file In dossier.files
file.delete
Next

ou il y a t'il une autre command
Merci
Sébas





























Avatar
scraper
Bonjour sympatix
(dans news:e93W2ca%)
tu nous disais :

non, vu que le dossier est pas supprimé, il est juste vidé ;-)
Pardon d'avoir pu supputer, ne serait-ce qu'un instant, qu'un bug,

fut-t-il minime, eût pu s'immiscer insidieusement dans un de tes
scripts ;-)


heureusement que t'as posé un smiley, toi rofl

non, ceci dit cela aurait pu être le cas, plus sérieusement .... en fait, à
vrai dire, je n'avais pas vérifié avant ce fil (j'y avais pas pensé, pour
tout dire :-)

mais c'est OK ;-)




--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper


Avatar
sgroulx
"sympatix" a écrit dans le message de
news:eO0mGra%
Si maintenant, comme on peut le supposer en regardant ton script, tu n'as
que des fichiers à supprimer (sans aucun sous-dossier), tu peux aussi
faire

ceci:
------------------------
Dossier = "C:Mon dossier"
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFile Dossier & "*.*", True
------------------------
exatement ce que je cherchais.

merci
Sébas


Cordialement
Sympatix

"sgroulx" a écrit dans le message de
news:%23Y6v0Xa%

"sympatix" a écrit dans le message de
news:esikVzZ%
et si ton dossier avait des droits non-hérités tu les perds ;-)
C'est vrai, j'ai pas pensé à ça...tout dépend en fait du contexte

d'utilisation du-dis dossier.
(donc, finalement, la 1ère méthode récursive de Sgroulx est très
bonne...qu'y a-t-il a lui reprocher ? la lenteur, peut-être si le
dossier


est très volumineux ?)


ta tous compris. le dossier est souvent très volumineux. mais jai quand
meme

gardé ma methode.
simple et quand meme efficace.


Cordialement
Sympatix


"Fred" a écrit dans le message de
news:OT4BghZ%
Bonsoir,
et si ton dossier avait des droits non-hérités tu les perds ;-)

"sympatix" a écrit dans le message de
news:



uoZXjNY%
J'ai du mal lire...en fait, pour supprimer le contenu d'un dossier
(fichiers
et sous dossiers) tu peux faire ça:
-----------------------------
Dossier = "C:Mon Dossier"
Set MyFSO = CreateObject("Scripting.FileSystemObject")
MyFSO.DeleteFolder Dossier, True
MyFSO.CreateFolder Dossier
-----------------------------

Cordialement
Sympatix

"sympatix" a écrit dans le message de
news:eBshZFY%
Salut !

Tu peux aussi utiliser la méthode "DeleteFolder" de l'objet FSO:
(suppression du dossier et de son contenu. paramètre à True:
efface






également les fichiers et les dossiers cachés.)
-----------------
Set MyFSO = CreateObject("Scripting.FileSystemObject")
MyFSO .DeleteFolder "C:Mon dossier et son contenu", True
-----------------
Doc de Windows Script Host téléchargeable ici:










http://www.microsoft.com/downloads/details.aspx?displaylang=fr&FamilyIDç4494D3-C4E1-4E18-9C6C-0EA28C9A5D9D


Cordialement
Sympatix

"sgroulx" a écrit dans le message de
news:eWVCU9X%
bonjour,
pour effacé tous les fichier d'un dossier dois-je faire
absolument







set MyFSO = wscript.createObject("Scripting.FileSystemObject")
Set dossier = Myfso.GetFolder("c:test")
For Each file In dossier.files
file.delete
Next

ou il y a t'il une autre command
Merci
Sébas





























Avatar
sympatix
heureusement que t'as posé un smiley, toi rofl
Ben tu me connais, voyons, je ne me permettrais pas d'être sérieux ! ;-)


non, ceci dit cela aurait pu être le cas, plus sérieusement .... en fait, à
vrai dire, je n'avais pas vérifié avant ce fil (j'y avais pas pensé, pour
tout dire :-)

Je m'en doutais...hé hé hé...(rire sardonique) ;-)


Cordialement
Sympatix

"scraper" a écrit dans le message de
news:OonKwsb%
Bonjour sympatix
(dans news:e93W2ca%)
tu nous disais :

non, vu que le dossier est pas supprimé, il est juste vidé ;-)
Pardon d'avoir pu supputer, ne serait-ce qu'un instant, qu'un bug,

fut-t-il minime, eût pu s'immiscer insidieusement dans un de tes
scripts ;-)


heureusement que t'as posé un smiley, toi rofl

non, ceci dit cela aurait pu être le cas, plus sérieusement .... en fait,
à

vrai dire, je n'avais pas vérifié avant ce fil (j'y avais pas pensé, pour
tout dire :-)

mais c'est OK ;-)




--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper






1 2