Effacer folder avec nom variable: zero's + nom variable

Bonjour,

Je voudrais effacer un folder avec nom variable.
Ce nom variable ce compose comme ceci :

des zero's 000 + StFichierSource (qui lui est donc variable aussi)

Le tout est toujours maximum 8 charactères !

exemple : 00012345 / 00001234 / etc...

Donc il faudrait compter le nombre de charactères de stFichierSource et rajouter en fonction le nombre de zero's.

Pouriez-vous m'aider ?

Code:

---

1 2 3 4 5 6 7

dim filesys Set filesys = CreateObject("Scripting.FileSystemObject") msgbox ""&Merlindr&"\scout\archdata\"&stFichierSource&"*.*" If filesys.FolderExists(""&Merlindr&"\scout\archdata\"&stFichierSource&"*.*") Then filesys.DeleteFolder ""&Merlindr&"\scout\archdata\"&stFichierSource&"*.*" End If

---

pas besoin de compter utilise Format..

Code:

---

1 2 3

iNumFichier = 12345 stFichier = format(iNumFichier,"00000000") & ".txt"

---

Merci pour ta réponse une fois de plus !

entre temps on m'avais déjà aidé avec ceci qui fonctionne comme je le voulais (mais avec bcp plus de codage que toi :D ):

Code:

---

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

Dim sPath sPath = Merlindr & "\scout\archdata\" & PadLeft(stFichierSource, 8, "0") MsgBox sPath   If filesys.FolderExists(sPath) Then filesys.DeleteFolder sPath End If   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

---