déplacer ou supprimer des fichiers doc ou xls ou les deuxRésolu

Question

Bonjour à tous
j'ai besoin d'une info
je débute en vbs et je voudrais faire un script qui déplace ou supprime des fichiers doc et xls et ppt dans une arborescence complexe.

Comment puis je faire?

Renfield · Accepted Answer

ScanFolder CreateObject("Scripting.FileSystemObject").GetFolder("C:\Test")

Sub ScanFolder(voParenFolder)
    For Each oFile In voParenFolder.Files
        If StrComp(Right(oFile.Name, 4), ".xls", 1) = 0 Or _
           StrComp(Right(oFile.Name, 4), ".ppt", 1) = 0 Then
           oFile.Delete
        End If
    Next
    For Each oFolder In voParenFolder.SubFolders
        ScanFolder oFolder
    Next
End Sub



Renfield - Admin CodeS-SourceS - MVP Visual Basic

fxx · Answer

merci pour le code et de ta réponse rapide mais il fait quoi exactement

fxx · Answer

Je crois que j'ai trouvé tout seul il supprime les fichiers xls et ppt dans l'arborescence c:	est

Si je veux rajouter les extensions doc ou autre je rajoute un OR et ça marche ???

Renfield · Answer

testes, lis, relis, analyse, tu verras bien ^^

Renfield - Admin CodeS-SourceS - MVP Visual Basic

fxx · Answer

c'est bon j'ai pigé , j'ai mis un or en recopiant la premiere ligne et rajouter un .doc et ça efface les .doc
merçi beaucoup, ça m'enleve une épine du pied

cs_JMO · Answer

Bonjour Renfield,


Je ne connaissais pas cette utilisation simplifiée de fso.
Où l'as-tu trouvé ???


jean-marc

Renfield · Answer

'lut l'ami,

En quoi la trouves-tu simplifiée ?

c'est du VbScript, je me suis simplement epargné de typer mes variables ^^


Renfield - Admin CodeS-SourceS - MVP Visual Basic

Déplacer ou supprimer des fichiers doc ou xls ou les deux

7 réponses

Votre réponse

Discussions similaires