A voir également:
- Script tombe en erreur et est bloqué
- Uptobox bloqué - Guide
- Erreur 0x80070643 - Guide
- Script vidéo youtube - Guide
- Comment savoir si on est bloqué sur messenger - Guide
- Code puk bloqué - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
5 févr. 2016 à 08:01
5 févr. 2016 à 08:01
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