DeleteFolder avec Wildcard - ne fonctionne pas ?
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:
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 ?
