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