A voir également:
- Script tombe en erreur et est bloqué
- Code puk bloqué - Guide
- Script vidéo youtube - Guide
- Téléphone bloqué code verrouillage - Guide
- Pavé tactile bloqué - 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