Bat trouver dossier

Résolu
eljojo_e Messages postés 1255 Statut Membre -  
eljojo_e Messages postés 1255 Statut Membre -
Bonjour,

J'aimerai, via du bat, trouver un dossier dans une liste qui commencerai par une variable :

ex : j'ai une variable que j'ai récupéré qui est "68", Dans mon dossier j'ai environ 90 dossier nommer de 1 à 90, sauf qu'il peut y avoir n'importe quel nom derrière le nombre. (68 - travaux paris 1, par exemple)

j'ai essayer de faire ça : 
sub ok()
adresse = "Y:\TRAVAUX\2012\68~"
Shell "C:\WINDOWS\EXPLORER.EXE " & adresse, vbNormalFocus
end sub

le ~1 étant la pour trouver le dossier qui commence par 68.

(Je fait ça sur du VBA excel et acces)

Cordialement,

1 réponse

  1.
    eljojo_e Messages postés 1255 Statut Membre 155
     
    Désolé, problème résolu : 

    Sub ok()

va = "68"
mo = ""
  Dim strDossier As String
  Dim strFichier As String
  
strDossier = "Y:\TRAVAUX\2012\"

  ' Vérifier que le dossier existe bien
  If Dir(strDossier, vbDirectory) = "" Then
      MsgBox "Dossier introuvable !", vbExclamation
      Exit Sub
  End If
   
  ' Lister tous les fichiers du dossier
  strFichier = Dir(strDossier, vbDirectory)
  While strFichier <> ""
  
      ' Afficher le nom du fichier
      If Left(strFichier, 2) = va Then
      
      mo = strFichier
      
      End If

      ' Lire le fichier suivant
      strFichier = Dir
  Wend
  
  If mo = "" Then MsgBox ("Dossier introuvable")

End Sub
    0