> 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
32,99 €Imprimante multifonction HP DeskJet 2620 + Instant Ink 6 mois à 32,99 €
Valable jusqu'au 25 Février

Cdiscount propose actuellement l'imprimante multifonction HP DeskJet  2620 à 32,99 €. Cette imprimante 3 en 1 fait donc imprimante, photocopieur et scanner. Elle dispose d'un chargeur automatique de documents. Elle fonctionne avec 2 cartouches d'encre (une noire et une 3 couleurs). Avec l'imprimante, vous pouvez également bénéficier de 6 mois d'abonnement gratuit au service HP Instant Ink où vos cartouches sont automatiquement commandées par votre imprimante.  Afin de bénéficier du service vous devrez sélectionner un forfait parmi les quatre forfaits existants (15, 50, 100, 300 pages) en fonction de votre prévision de consommation. HP vous enverra ainsi gratuitement assez d'encre pour imprimer jusqu'à 300 pages / mois pendant 6 mois. Vous pouvez bien sûr résilier ce forfait à la fin des 6 mois (ou bien passer au forfait gratuit qui offre 15 pages / mois). Notez que ce service n'est pas obligatoire et que si vous ne souhaitez pas y souscrire, vous pouvez acheter vous même vos cartouches.


> Voir l'offre
49,99 €Manette Microsoft Xbox One sans fil + adaptateur pour PC à 49,99 €
Valable jusqu'au 29 Février

Amazon fait une promotion sur la manette Microsoft Xbox One sans fil + adapateur pour PC qui passe à 49,99 € livrée gratuitement alors qu'on la trouve ailleurs à partir de 60 €.  Sur Xbox One, la connexion se fera directement sans fil et sur PC, il vous suffira de brancher l'adaptateur bluetooth fourni pour en profiter aussi. Si vous avez déjà le bluetooth sur votre ordinateur, vous pouvez prendre la version sans adaptateur qui coûte 10 € de moins.


> Voir l'offre
33,13 €Carte mémoire microSDXC UHS-I SanDisk A1 Ultra 256 Go à 33,13 €
Valable jusqu'au 26 Février

Amazon propose actuellement la carte mémoire microSDXC UHS-I SanDisk A1 Ultra 256 Go à 33,13 € livrée gratuitement. On la trouve ailleurs à partir de 56 €. Cette carte mémoire offre des vitesses jusqu'à 100 Mo/s et est idéale pour les téléphones, caméras et appareils photo HD. Elle est certifiée GoPro et Nintendo Switch.


> Voir l'offre

Sujets relatifs
 > Tous les forums > Forum Autres langages