Discussion :

[DPhBxl]

Bonjour,

Je cherche à détecter la présence d'un répertoire (pas un fichier) dont je ne connais que les 3 premiers caractères de son nom et l'ouvrir dans l'explorer via un code en VBA.

Code :

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

1
2
Dim fso As New FileSystemObject
MsgBox fso.FolderExists("C:\repertoire\001 - nom")

001 est connu, mais le nom ne l'est pas. l'astérisque ne marche pas
fso.FolderExists("C:\repertoire\001*") ne fonctionne pas.

Pouvez-vous m'aider ? Merci.

[philben]

bonjour,

peut être comme ceci (référence : VBA) :

Code :

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

1
2
MsgBox Dir("C:\repertoire\001*",vbDirectory)

bonne journée,

Philippe

[DPhBxl]

Simple et précis
Merci philben