Discussion :

[chapeau_melon]

Bonjour,

J'ai un petit souci avec mon DeleteFolder.

Le folder à éffacer est du type 00012345.123

Le zero's sont variable en fonction du la taille en caractères du la variable stFichierSource.
Mais la dernière partie .123 est aussi variable. Mais pas d'utilité pour moi.

Je pensais que je pouvais mettre un Wildcard * à la fin, mais cela ne fonctionne pas. Si je met .123 allors le Deletefolder fonctionne.

Comment résoudre ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function PadLeft(rsIn, rlCount, rvntChar) 
  Dim s: s = String(rlCount, rvntChar) 
If Len(rsIn) >= rlCount Then 
   PadLeft = rsIn 
  Else 
   PadLeft = String(rlCount - Len(rsIn), rvntChar) & rsIn 
  End If 
End Function 
 
dim filesys 
Set filesys = CreateObject("Scripting.FileSystemObject") 
Dim sPath 
sPath = Merlindr & "\scout\archdata\" & PadLeft(stFichierSource, 8, "0")&"*"
MsgBox sPath 
If filesys.FolderExists(sPath) Then 
     filesys.DeleteFolder sPath,true 
End If

j'ai aussi essayé 00012345.* et 00012345****

Le folder a deleter : 00012345.123

Si je tape .123 après PadLeft(stFichierSource, 8, "0")&".123" - cela fonctionne parfaitement.

Je ne comprends pas ?

[chapeau_melon]

Bon j'ai trouvé entre temps

La fonction FileExists n'accepte pas le Wildcards !

Dommage

Merci