> 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 !


Les bons plans du moment PC Astuces

Tous les Bons Plans
141,50 €Disque dur externe Western Digital Elements Desktop USB 3.0 8 To à 141,50 € livré
Valable jusqu'au 26 Février

Amazon Allemagne propose actuellement le disque dur externe Western Digital Elements Desktop USB 3.0 8 To à 135,13 € (avec la TVA ajustée) Comptez 6,37 € pour la livraison en France (gratuite en Belgique) soit un total de 141,50 livré. On le trouve ailleurs à partir de 210 €. Ce disque dur dispose d'un grande capacité de stockage (8 To) et d'une connectique USB 3.0 qui vous offrira des transferts rapides. Il est compatible USB 2.0. Une très bonne affaire. 

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douanes. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
19,79 €Prise connectée Wi-Fi TP-Link HS100 à 19,79 €
Valable jusqu'au 01 Mars

Amazon fait une promotion sur la prise intelligente Wi-Fi TP-Link HS100 qui passe à 19,79 € alors qu'on la trouve habituellement autour de 35 €. Cette prise peut être contrôlée à distance en utilisant l'app gratuite KASA sur votre smartphone (iOS ou Android). Vous pouvez créer des planifications horaires pour allumer ou éteindre automatiquement et quand vous le souhaitez, l'appareil qui y est branché. Pour en savoir plus, n'hésitez pas à lire notre dossier pratique Contrôler une prise électrique à distance.


> Voir l'offre
35,99 €Souris sans fil Logitech G305 à 35,99 €
Valable jusqu'au 28 Février

Amazon fait une belle promotion sur la nouvelle souris sans fil Logitech G G305 qui passe à 35,99 € livrée gratuitement alors qu'on la trouve ailleurs autour de 50 €. Cette souris vous offre des performances sans fil de niveau professionnel et une fiabilité inégalée surpassant même certaines des meilleures souris gaming filaire. Dotée du capteur HERO, vous allez connaitre une précision exceptionnelle grâce à sa sensibilité pouvant aller jusqu'à 12 000 dpi.


> Voir l'offre

Sujets relatifs
 > Tous les forums > Forum Autres langages