script tombe en erreur et est bloqué

Question

bonjour

je suis vraiment nul en script
Jài fait un VBScript pour effacer les fichiers d`un dossier, ca fonctionne :)
je l`ai ensuite programmer tout les jours dans le <Planificateur de Taches > dans le panneau de configuration de Windows
mais si le Dossier en question est vide le script bloque et ne fonctionne plus

est ce que quelqu'un peux m'aider??

voila le script : 

Const DeleteReadOnly = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Users\Administrator\Desktop\pdf\*.pdf"), DeleteReadOnly

merci

pijaku · Answer

Bonjour,

Teste d'abord si ton répertoire contient un/des fichier(s) :
Const DeleteReadOnly = True 
Dim objFSO
Dim Dossier
Dim Fichiers

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set Dossier = objFSO.GetFolder("C:\Users\Administrator\Desktop\pdf\") 
Set Fichiers = Dossier.Files 
If Fichiers.Count > 0 Then
    objFSO.DeleteFile("C:\Users\Administrator\Desktop\pdf\*.pdf"), DeleteReadOnly
End If

Christian · Answer

merci beaucoup , cela a résolu mon problem

c`est très apprécié

Script tombe en erreur et est bloqué

2 réponses

Discussions similaires

Newsletters