Script tombe en erreur et est bloqué
Christian
-
Christian -
Christian -
bonjour
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
- 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
A voir également:
- Script tombe en erreur et est bloqué
- Code puk bloqué - Guide
- Téléphone bloqué code verrouillage - Guide
- Pavé tactile bloqué - Guide
- Script vidéo youtube - Guide
- Compte gmail bloqué - Guide
2 réponses
Bonjour,
Teste d'abord si ton répertoire contient un/des fichier(s) :
Const DeleteReadOnly = True
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
