Discussion :

[chapeau_melon]

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 :

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

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

[SfJ5Rpw8]

pas besoin de compter utilise Format..

Code :

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

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

[chapeau_melon]

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 ):

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
 
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