Suppression pdf dont le commence par

Bonjour,
j'ai un problème qui m'énerve en vbs. En gros je souhaite pouvoir supprimer un fichier pdf dans le même dossier que mon script VB dont le nom commence par"suviclient". Je lui demande en amont de la suppression, de vérifier si ce fichier existe. Il ne le trouve jamais ou ne les trouve jamais donc les fichiers ne se suppriment pas :/ Voci mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Set fso = WScript.CreateObject("Scripting.FileSystemObject") Dim nomfichier : nomfichier = "SuviClient*" Dim lieufichier: lieufichier = "D:\PARTAGES_LIMITES\RAPPORTS_filou\Rapports v2\jean-claude\" & nomfichier   If fso.FileExists(lieufichier) > 0 Then ' j'ai aussi tester sans le >0   fso.deletefile lieufichier wscript.echo " [OK] Le fichier à été supprimé!" Else   wscript.echo " [ ] Le fichier n'existe pas!" End If   Set fso = Nothing

---

Je bloque vraiment , si quelqu'un à une idée
cordialement,

bonjour,

Code:

---

If fso.FileExists(lieufichier) Then

---

la méthode FileExists renvoie une valeur booléenne
et comme en vbs le transtypage de la valeur True donne -1.... :aie:

Tout d’abord merci pour ta réponse.
J’ai essayer en remplaçant >0 par = true mais aussi = false mais aussi par <0 = false. et il ne trouve toujours pas le fichier .
Du moins il ne le supprime pas je pence ça coince au niveau de " suiviclient*"
Franchement je suis débutant en VBS si tu pouvais m'éclairer ^^ :oops:
J'ai testé ça également, qui supprime mais si le fichier n'existe pas message d'erreur

Code:

---

1 2 3 4 5

Const DeleteReadOnly = True Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile("D:\PARTAGES_LIMITES\RAPPORTS\Rappo\jean-claude\*.pdf"), DeleteReadOnly

---

Si ça peux aider, je me suis fait aidé et une solution qui fonctionne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

drap = 0 nomfichier = "SuviClient" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("D:\PARTAGES_LIMITES\RAPPORTS_filou\Rapports v2\jean-claude\") Set colFiles = objFolder.Files For Each objFile in colFiles 'Wscript.Echo objFile.Name, objFile.Size if left(objFile.Name,10) = nomfichier then objFile.delete drap = 1 exit for end if Next if drap = 1 then Wscript.Echo "fichier" & objFile.Name & "trouvé et supprimer" else Wscript.Echo "fichier non trouvé" end if

---

oops, je n'avais pas remarqué que tu avais utilisé un caractère générique * dans ton 1er exemple.
il n'est pas supporté par la méthode FileExists
ton dernier exemple est la technique classique pour contourner cette limitation

A ma grande surprise...
j'avais créer un fichier à chaque fois.
Or lorsque' ils sont plusieurs autrement dit "suviclient de xxxxx" & "suiviclient de yyyyyy"
ça n'en supprime qu'un il faut relancer le script à chaque fois... Tu n'as pas une idée d'ou ça provient :/ :oops:

Code:

---

1 2 3 4 5

if left(objFile.Name,10) = nomfichier then objFile.delete drap = 1 exit for end if

---

le code fait très exactement ce que tu lui demandes
pourquoi quitter la boucle avec exit for si tu veux supprimer tous les fichiers ?

Enfait comme j'ai un autre code derrière je pensais nécessaire de mettre le exit for.
Mais c'est vrai qu'il est logique de le supprimer !^^
Je te remercie de ton aide.
Bonne journée :D