Select case ou IfRésolu

Question

Salut 

Je voudrais savoir si (mise a part les differences de syntaxe) il y a
vraimment une difference fondamental entre l'instruction select case et
le if 

merci

cs_JMO · Accepted Answer

Bonsoir,

Ci-dessous, les 2 synthaxes:

Exemple pour rechercher x fichiers dans un r&#233;pertoire.
Recherche de fichiers dont la date de modif est inf&#233;rieure de 5 jours.

Dim Path
Path  =  "d:\KRNSDE" 


MsgBox ShowFolderList(Path),vbmessage,"Fichiers pr&#233;sents dans le  r&#233;pertoire"
Function ShowFolderList(strPath) 
Dim fso, Dossiers, fic, fichiers, strListe, f, fdate, fname, dtDiffFile 
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(path)
Set fic = Dossiers.Files


For Each fichiers in fic 
    Set f = fso.GetFile(fichiers)
    fdate = f.DateLastModified
    fname = f.Name
    dtDiffFile = DateDiff("d", Now, fdate)
    If dtDiffFile <= -5 Then 
       MsgBox  "Le fichier " & Path & fname & " sera supprim&#233; car cr&#233;&#233; le " & fdate
'      fso.DeleteFile(Path & fname)
    Else 
       MsgBox "Le fichier " & Path & fname & " ne sera pas supprim&#233; car cr&#233;&#233; le " & fdate
   End If
   strListe = strListe & vbcrlf & vbcrlf & fname & " " & fdate 
Next
  ShowFolderList = strListe 
  End Function

 Exemple pour rechercher x possiblit&#233;s pr&#233;-definies. 
En fonction des jours on effectue une action.

Dim jour, jour1, jour2
Dim fso, wSrce
Dim dossier, fichier, fichiers
Dim WshShell, strList, verif


wSrce  = "c:\Rapports-JUPITER"


'''
''' Cr&#233;ation des variables de dates
'''
jour   = DatePart("w", Date)
jour1 = Array("Samedi","Dimanche","Lundi","Mardi","Mercredi","Jeudi","Vendredi")
jour2 = jour1(jour)


'''
''' Delete des fichiers en fonction du jour
'''
Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder(path1)
Set fichiers = Dossier.Files
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\WINDOWS\EXPLORER.EXE /n,/e," & wSrce
WScript.Sleep(1000)


For Each fichier in fichiers
     Select Case jour2
     Case "Lundi"
     IF Left(fichier.name,5) = "Vendr" Then
     strList = strList & vbcrlf & fichier     
'     fso.DeleteFile(fichier) 
     End If
     Case "Mardi"
     IF Left(fichier.name,5) = "Lundi" Then
     strList = strList & vbcrlf & fichier     
'     fso.DeleteFile(fichier) 
     End If
     Case "Mercredi"
     IF Left(fichier.name,5) = "Mardi" Then
     strList = strList & vbcrlf & fichier     
'     fso.DeleteFile(fichier) 
     End If
     Case "Jeudi"
     IF Left(fichier.name,5) = "Mercr" Then
     strList = strList & vbcrlf & fichier     
'     fso.DeleteFile(fichier) 
     End If
     Case "Vendredi"
     IF Left(fichier.name,5) = "Jeudi" Then
     strList = strList & vbcrlf & fichier     
'     fso.DeleteFile(fichier) 
     End If
     End Select
Next
WScript.Sleep(1000)
WshShell.SendKeys "%{F4}",true
WshShell.Run "C:\WINDOWS\EXPLORER.EXE /n,/e," & wSrce
WScript.Sleep(2000)
WshShell.SendKeys "%{F4}",true
Verif = WshShell.Popup(strList & vbcrlf & vbcrlf , 5, "Fichiers supprim&#233;s du r&#233;pertoire : " & wSrce)

cs_darkwhite · Answer

Merci c'est super mais bon je suis un vrai debutant je vais mettre longtemps a dechiffrer sa mais merci can meme sa m'apporte beaucoup.

PCPT · Answer

salut,

si ta question porte sur "pourquoi plus l'un que l'autre", je ne trouve plus le topic exact mais la r&#233;ponse de m&#233;moire &#233;tait :


le select case est plus lisible, mais un peu plus long d'execution.


PCPT   [AFCK]

Select case ou If

3 réponses

Discussions similaires