> Tous les forums > Forum Autres langages
 suppressions multifichiers & multidossier VBSSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
le_duq
  Posté le 26/11/2009 @ 12:57 
Aller en bas de la page 
Astucien

bonjour,

par necessité, je me suis mis ce matin au VBS

je dois supprimer de types de fichiers (extension SFT et XSW) dans plusieurs dossiers et sous dossiers

j'ai reussie a faire un script pour supprimer un type de fichier, mais je ne trouve pas comment m'occuper de l'autre extenstion

voici mon script :

'----------------------------------------------------------- ------------------------------------------------------------ -
racine= "\\vpaocr01\SCANNER\juridique"
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set Afolder=FSO.GetFolder(racine)
effaceSFT(Afolder)
function effaceSFT(rep)
Set TheFiles = rep.Files
For Each AFile In TheFiles
If UCase(FSO.GetExtensionName(AFile.Path)) = "SFT" then AFile.Delete
next
for each subFolder in rep.SubFolders
effaceSFT (subFolder)
next
end function
'------------------------------------------------------------------------------------------------------------------------

'----------------------------------------------------------- ------------------------------------------------------------ -

racine= "ma racine"

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

Set Afolder=FSO.GetFolder(racine)

effaceSFT(Afolder)

function effaceSFT(rep)

Set TheFiles = rep.Files

For Each AFile In TheFiles

If UCase(FSO.GetExtensionName(AFile.Path)) = "SFT" then AFile.Delete

next

for each subFolder in rep.SubFolders

effaceSFT (subFolder)

next

end function

'------------------------------------------------------------------------------------------------------------------------

Merci d'avance pour votre aide

Publicité
Loup blanc
 Posté le 26/11/2009 à 13:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Groupe Sécurité

Bonjour Le_duq

Je n'ai pas testé ton code, mais si il marche pour la premère extension, avec cette modificiation, ça devrait marche pour la seconde :

'----------------------------------------------------------- ------------------------------------------------------------ -

racine= "ma racine"

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

Set Afolder=FSO.GetFolder(racine)

effaceSFT(Afolder)

function effaceSFT(rep)

Set TheFiles = rep.Files

For Each AFile In TheFiles

If UCase(FSO.GetExtensionName(AFile.Path)) = "SFT" Or UCase(FSO.GetExtensionName(AFile.Path)) = "XSW" then AFile.Delete

next

for each subFolder in rep.SubFolders

effaceSFT (subFolder)

next

end function

'------------------------------------------------------------------------------------------------------------------------

le_duq
 Posté le 26/11/2009 à 13:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

bonjour loup blanc

merci, ça fonctionne en effet ...

j'avais pourtant essayé, mais je n'avais pas mis (je sais pas pourquoi) la 2eme extention en majuscule ... c'est trop con ...

quoi qu'il en soit, Merci de ton aide.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
 > Tous les forums > Forum Autres langages