Bonjour,
 
J'utilise ceci pour rechercher avec Everything Search les fichiers contenant dans leur nom le mois et la date en cours :
 
Dim WS
Set WshShell = WScript.CreateObject("WScript.Shell" )
Return = WshShell.Run ("""C:\Program Files\Everything\Everything.exe""" & "-search """&"20 " &"-" & Month(Date) & "-" & Day(Date) & """ """, 1, true)
 
Ça fonctionne bien, mais je voudrais obtenir 11-05 et non 11-5. Je voudrais donc entrer ("0" & Date(dDate),2) et ("0" & Month(dDate),2) au lieu de Month(Date) et Day(Date), mais voilà, je suis tout mêlé avec les parenthèses et les guillemets, je n'y arrive pas.
Une âme charitable pourrait-elle me venir en aide ?<
 
Un gros merci !

Salut,
 
Ca ca fonctionne sur mon poste , c'est un .BAT ca doit pas être dur à adapter en VBS :
 
for /f "tokens=2 delims==" %%a in ('wmic OS Get localdatetime /value') do set  
 
"dt=%%a"  
set /a num=%random% %%3 +1
echo %num%
set DATE2=%dt:~6,2%-%dt:~4,2%-%dt:~0,4%
echo %date2%
start "" "C:\Program Files\Everything\Everything.exe" -search %date2%
 
 
Ya des trucs qui servent à rien, j'ai repiquer du code à moi.

Il manque seulement le mot right, car le but est de prendre les deux derniers caractères alphanumériques à droite quand on a ajouté "0" devant.
Donc : right("0" & Month(Date), 2) et right("0" & Day(Date), 2)