Bonjour,
Je débute en vbs, je cherche un moyen de coder simplement la
suppression automatique des fichiers datant de +1 mois sur toute une
arborescence.
Je cherche des exemples de code qui traite ce problème, la récursivité
et la date de modification du fichier.
Bonjour,
Je débute en vbs, je cherche un moyen de coder simplement la
suppression automatique des fichiers datant de +1 mois sur toute une
arborescence.
Je cherche des exemples de code qui traite ce problème, la récursivité
et la date de modification du fichier.
Bonjour,
Je débute en vbs, je cherche un moyen de coder simplement la
suppression automatique des fichiers datant de +1 mois sur toute une
arborescence.
Je cherche des exemples de code qui traite ce problème, la récursivité
et la date de modification du fichier.
"" wrote:Bonjour,
Bonjour,Je débute en vbs, je cherche un moyen de coder simplement la
suppression automatique des fichiers datant de +1 mois sur toute une
arborescence.
Je cherche des exemples de code qui traite ce problème, la récursivité
et la date de modification du fichier.
Ci-dessous le script VBScript RemoveFiles.vbs permettant de supprimer de
manière récursive tous les fichiers non modifiés depuis N jours sur toute
l'arborescence spécifiée comme argument.
Usage :
RemoveFiles.vbs <path> <nbDays> [/whatif:<True|False>]
Exemples :
1- Pour simuler la suppression de tous les fichiers de l'arborescence
D:Test non modifiés depuis 30 jours :
> cscript //nologo RemoveFiles.vbs D:Test 30 /whatif:True
2- Pour supprimer tous les fichiers de l'arborescence D:Test non modifiés
depuis 60 jours :
> cscript //nologo RemoveFiles.vbs D:Test 60
--- Coupez-ici : RemoveFiles.vbs ---
Set oFs=CreateObject ("Scripting.FileSystemObject")
Set oFolder=oFs.GetFolder (WScript.Arguments(0))
RemoveFiles _
oFolder, _
CInt(WScript.Arguments(1)), _
CBool (WScript.Arguments.Named ("whatif"))
Sub RemoveFiles (oFolder, nDays, bWhatIf)
Set colFiles=oFolder.Files
For Each oFile In colFiles
nDeltaÚteDiff ("D", oFile.DateLastModified, Date())
If nDelta => nDays Then
WScript.Echo Right("000" & nDelta, 3), _
oFile.DateLastModified, _
oFile.Path & " deleted ..." & _
" (" & CStr(Not bWhatIf) & ")"
If Not bWhatIf Then oFile.Delete (True)
End If
Next
For Each oSubFolder In oFolder.SubFolders
RemoveFiles oSubFolder, nDays, bWhatIf
Next
End Sub
--- Coupez-ici : RemoveFiles.vbs ---
La sortie est de la forme :
- Nombre de jours de la dernière modification du fichier
- Date de dernière modification
- Chemin complet du fichier supprimé
- Suppression effective (Vrai ou Faux)
"forumicrosoft@gmail.com" wrote:
Bonjour,
Bonjour,
Je débute en vbs, je cherche un moyen de coder simplement la
suppression automatique des fichiers datant de +1 mois sur toute une
arborescence.
Je cherche des exemples de code qui traite ce problème, la récursivité
et la date de modification du fichier.
Ci-dessous le script VBScript RemoveFiles.vbs permettant de supprimer de
manière récursive tous les fichiers non modifiés depuis N jours sur toute
l'arborescence spécifiée comme argument.
Usage :
RemoveFiles.vbs <path> <nbDays> [/whatif:<True|False>]
Exemples :
1- Pour simuler la suppression de tous les fichiers de l'arborescence
D:Test non modifiés depuis 30 jours :
> cscript //nologo RemoveFiles.vbs D:Test 30 /whatif:True
2- Pour supprimer tous les fichiers de l'arborescence D:Test non modifiés
depuis 60 jours :
> cscript //nologo RemoveFiles.vbs D:Test 60
--- Coupez-ici : RemoveFiles.vbs ---
Set oFs=CreateObject ("Scripting.FileSystemObject")
Set oFolder=oFs.GetFolder (WScript.Arguments(0))
RemoveFiles _
oFolder, _
CInt(WScript.Arguments(1)), _
CBool (WScript.Arguments.Named ("whatif"))
Sub RemoveFiles (oFolder, nDays, bWhatIf)
Set colFiles=oFolder.Files
For Each oFile In colFiles
nDeltaÚteDiff ("D", oFile.DateLastModified, Date())
If nDelta => nDays Then
WScript.Echo Right("000" & nDelta, 3), _
oFile.DateLastModified, _
oFile.Path & " deleted ..." & _
" (" & CStr(Not bWhatIf) & ")"
If Not bWhatIf Then oFile.Delete (True)
End If
Next
For Each oSubFolder In oFolder.SubFolders
RemoveFiles oSubFolder, nDays, bWhatIf
Next
End Sub
--- Coupez-ici : RemoveFiles.vbs ---
La sortie est de la forme :
- Nombre de jours de la dernière modification du fichier
- Date de dernière modification
- Chemin complet du fichier supprimé
- Suppression effective (Vrai ou Faux)
"" wrote:Bonjour,
Bonjour,Je débute en vbs, je cherche un moyen de coder simplement la
suppression automatique des fichiers datant de +1 mois sur toute une
arborescence.
Je cherche des exemples de code qui traite ce problème, la récursivité
et la date de modification du fichier.
Ci-dessous le script VBScript RemoveFiles.vbs permettant de supprimer de
manière récursive tous les fichiers non modifiés depuis N jours sur toute
l'arborescence spécifiée comme argument.
Usage :
RemoveFiles.vbs <path> <nbDays> [/whatif:<True|False>]
Exemples :
1- Pour simuler la suppression de tous les fichiers de l'arborescence
D:Test non modifiés depuis 30 jours :
> cscript //nologo RemoveFiles.vbs D:Test 30 /whatif:True
2- Pour supprimer tous les fichiers de l'arborescence D:Test non modifiés
depuis 60 jours :
> cscript //nologo RemoveFiles.vbs D:Test 60
--- Coupez-ici : RemoveFiles.vbs ---
Set oFs=CreateObject ("Scripting.FileSystemObject")
Set oFolder=oFs.GetFolder (WScript.Arguments(0))
RemoveFiles _
oFolder, _
CInt(WScript.Arguments(1)), _
CBool (WScript.Arguments.Named ("whatif"))
Sub RemoveFiles (oFolder, nDays, bWhatIf)
Set colFiles=oFolder.Files
For Each oFile In colFiles
nDeltaÚteDiff ("D", oFile.DateLastModified, Date())
If nDelta => nDays Then
WScript.Echo Right("000" & nDelta, 3), _
oFile.DateLastModified, _
oFile.Path & " deleted ..." & _
" (" & CStr(Not bWhatIf) & ")"
If Not bWhatIf Then oFile.Delete (True)
End If
Next
For Each oSubFolder In oFolder.SubFolders
RemoveFiles oSubFolder, nDays, bWhatIf
Next
End Sub
--- Coupez-ici : RemoveFiles.vbs ---
La sortie est de la forme :
- Nombre de jours de la dernière modification du fichier
- Date de dernière modification
- Chemin complet du fichier supprimé
- Suppression effective (Vrai ou Faux)
Gilles LAURENT [MVP] avait prétendu :"" wrote:Bonjour,
Bonjour,Je débute en vbs, je cherche un moyen de coder simplement la
suppression automatique des fichiers datant de +1 mois sur toute une
arborescence.
Je cherche des exemples de code qui traite ce problème, la récursivité
et la date de modification du fichier.
Ci-dessous le script VBScript RemoveFiles.vbs permettant de supprimer
de manière récursive tous les fichiers non modifiés depuis N jours sur
toute l'arborescence spécifiée comme argument.
Usage :
RemoveFiles.vbs <path> <nbDays> [/whatif:<True|False>]
Exemples :
1- Pour simuler la suppression de tous les fichiers de l'arborescence
D:Test non modifiés depuis 30 jours :
> cscript //nologo RemoveFiles.vbs D:Test 30 /whatif:True
2- Pour supprimer tous les fichiers de l'arborescence D:Test non
modifiés depuis 60 jours :
> cscript //nologo RemoveFiles.vbs D:Test 60
--- Coupez-ici : RemoveFiles.vbs ---
Set oFs=CreateObject ("Scripting.FileSystemObject")
Set oFolder=oFs.GetFolder (WScript.Arguments(0))
RemoveFiles _
oFolder, _
CInt(WScript.Arguments(1)), _
CBool (WScript.Arguments.Named ("whatif"))
Sub RemoveFiles (oFolder, nDays, bWhatIf)
Set colFiles=oFolder.Files
For Each oFile In colFiles
nDeltaÚteDiff ("D", oFile.DateLastModified, Date())
If nDelta => nDays Then
WScript.Echo Right("000" & nDelta, 3), _
oFile.DateLastModified, _
oFile.Path & " deleted ..." & _
" (" & CStr(Not bWhatIf) & ")"
If Not bWhatIf Then oFile.Delete (True)
End If
Next
For Each oSubFolder In oFolder.SubFolders
RemoveFiles oSubFolder, nDays, bWhatIf
Next
End Sub
--- Coupez-ici : RemoveFiles.vbs ---
La sortie est de la forme :
- Nombre de jours de la dernière modification du fichier
- Date de dernière modification
- Chemin complet du fichier supprimé
- Suppression effective (Vrai ou Faux)
bonjour,
Super l'argument whatif (cela me fait penser a un pub ...)
Et si on veut cibler une extension en particulier par ex *.tif ?
Gilles LAURENT [MVP] avait prétendu :
"forumicrosoft@gmail.com" wrote:
Bonjour,
Bonjour,
Je débute en vbs, je cherche un moyen de coder simplement la
suppression automatique des fichiers datant de +1 mois sur toute une
arborescence.
Je cherche des exemples de code qui traite ce problème, la récursivité
et la date de modification du fichier.
Ci-dessous le script VBScript RemoveFiles.vbs permettant de supprimer
de manière récursive tous les fichiers non modifiés depuis N jours sur
toute l'arborescence spécifiée comme argument.
Usage :
RemoveFiles.vbs <path> <nbDays> [/whatif:<True|False>]
Exemples :
1- Pour simuler la suppression de tous les fichiers de l'arborescence
D:Test non modifiés depuis 30 jours :
> cscript //nologo RemoveFiles.vbs D:Test 30 /whatif:True
2- Pour supprimer tous les fichiers de l'arborescence D:Test non
modifiés depuis 60 jours :
> cscript //nologo RemoveFiles.vbs D:Test 60
--- Coupez-ici : RemoveFiles.vbs ---
Set oFs=CreateObject ("Scripting.FileSystemObject")
Set oFolder=oFs.GetFolder (WScript.Arguments(0))
RemoveFiles _
oFolder, _
CInt(WScript.Arguments(1)), _
CBool (WScript.Arguments.Named ("whatif"))
Sub RemoveFiles (oFolder, nDays, bWhatIf)
Set colFiles=oFolder.Files
For Each oFile In colFiles
nDeltaÚteDiff ("D", oFile.DateLastModified, Date())
If nDelta => nDays Then
WScript.Echo Right("000" & nDelta, 3), _
oFile.DateLastModified, _
oFile.Path & " deleted ..." & _
" (" & CStr(Not bWhatIf) & ")"
If Not bWhatIf Then oFile.Delete (True)
End If
Next
For Each oSubFolder In oFolder.SubFolders
RemoveFiles oSubFolder, nDays, bWhatIf
Next
End Sub
--- Coupez-ici : RemoveFiles.vbs ---
La sortie est de la forme :
- Nombre de jours de la dernière modification du fichier
- Date de dernière modification
- Chemin complet du fichier supprimé
- Suppression effective (Vrai ou Faux)
bonjour,
Super l'argument whatif (cela me fait penser a un pub ...)
Et si on veut cibler une extension en particulier par ex *.tif ?
Gilles LAURENT [MVP] avait prétendu :"" wrote:Bonjour,
Bonjour,Je débute en vbs, je cherche un moyen de coder simplement la
suppression automatique des fichiers datant de +1 mois sur toute une
arborescence.
Je cherche des exemples de code qui traite ce problème, la récursivité
et la date de modification du fichier.
Ci-dessous le script VBScript RemoveFiles.vbs permettant de supprimer
de manière récursive tous les fichiers non modifiés depuis N jours sur
toute l'arborescence spécifiée comme argument.
Usage :
RemoveFiles.vbs <path> <nbDays> [/whatif:<True|False>]
Exemples :
1- Pour simuler la suppression de tous les fichiers de l'arborescence
D:Test non modifiés depuis 30 jours :
> cscript //nologo RemoveFiles.vbs D:Test 30 /whatif:True
2- Pour supprimer tous les fichiers de l'arborescence D:Test non
modifiés depuis 60 jours :
> cscript //nologo RemoveFiles.vbs D:Test 60
--- Coupez-ici : RemoveFiles.vbs ---
Set oFs=CreateObject ("Scripting.FileSystemObject")
Set oFolder=oFs.GetFolder (WScript.Arguments(0))
RemoveFiles _
oFolder, _
CInt(WScript.Arguments(1)), _
CBool (WScript.Arguments.Named ("whatif"))
Sub RemoveFiles (oFolder, nDays, bWhatIf)
Set colFiles=oFolder.Files
For Each oFile In colFiles
nDeltaÚteDiff ("D", oFile.DateLastModified, Date())
If nDelta => nDays Then
WScript.Echo Right("000" & nDelta, 3), _
oFile.DateLastModified, _
oFile.Path & " deleted ..." & _
" (" & CStr(Not bWhatIf) & ")"
If Not bWhatIf Then oFile.Delete (True)
End If
Next
For Each oSubFolder In oFolder.SubFolders
RemoveFiles oSubFolder, nDays, bWhatIf
Next
End Sub
--- Coupez-ici : RemoveFiles.vbs ---
La sortie est de la forme :
- Nombre de jours de la dernière modification du fichier
- Date de dernière modification
- Chemin complet du fichier supprimé
- Suppression effective (Vrai ou Faux)
bonjour,
Super l'argument whatif (cela me fait penser a un pub ...)
Et si on veut cibler une extension en particulier par ex *.tif ?
Bonjour,
Je débute en vbs, je cherche un moyen de coder simplement la
suppression automatique des fichiers datant de +1 mois sur toute une
arborescence.
Je cherche des exemples de code qui traite ce problème, la récursivité
et la date de modification du fichier.
Merci.
Bonjour,
Je débute en vbs, je cherche un moyen de coder simplement la
suppression automatique des fichiers datant de +1 mois sur toute une
arborescence.
Je cherche des exemples de code qui traite ce problème, la récursivité
et la date de modification du fichier.
Merci.
Bonjour,
Je débute en vbs, je cherche un moyen de coder simplement la
suppression automatique des fichiers datant de +1 mois sur toute une
arborescence.
Je cherche des exemples de code qui traite ce problème, la récursivité
et la date de modification du fichier.
Merci.
Bonsoir !
Perso, pour l'invite de commande, j'utilise Robocopy pour repérer les
fichiers à traiter (supprimer), puis un petit DEL fait l'affaire.
Mais, le demandeur ayant exigé du VBScript, je n'ai pas osé mettre mon grain
de sel.
@-salutations
Bonsoir !
Perso, pour l'invite de commande, j'utilise Robocopy pour repérer les
fichiers à traiter (supprimer), puis un petit DEL fait l'affaire.
Mais, le demandeur ayant exigé du VBScript, je n'ai pas osé mettre mon grain
de sel.
@-salutations
Bonsoir !
Perso, pour l'invite de commande, j'utilise Robocopy pour repérer les
fichiers à traiter (supprimer), puis un petit DEL fait l'affaire.
Mais, le demandeur ayant exigé du VBScript, je n'ai pas osé mettre mon grain
de sel.
@-salutations