Question : rechercher le dossier avec le nom et prénoms exact dans VBA

Le cher expert, le

I ont des xls d'un dossier appelés le « advancedata2010 » dans ma chemise, et je veux au create
one nouveau l'autre dossier appelé le « data2010 » sans mot de « avancer ». Le code est l'as
follows. Mais il ne créera pas le dossier de data2010, et est-ce qu'alors j'ai résolu le
by de problème retitre le dossier nommé semblable de « advanceddata2010 » au « advacnedata », programme du
the de réexécution, et alors le dossier de « data2010 » est-il révélé et le created

So est-il ma question comment au filesearch le nom d'eaxct du dossier dans VBA ? wkdir principal du
Dim du

Sub de l'advise
Duncan du

Please () comme datafilename de String
Dim comme String
wkdir =
datafilename = « data2010 "
'Test du
Sub DoesWorkBookExist (wkdir du
Call DoesWorkBookExist (wkdir, datafilename) comme corde, le datafilename comme corde) pour voir si un exists
Dim i comme Integer
With Application.FileSearch
.LookIn = wkdir
'* représente le characters
.Filename = datafilename
If. Exécuter > 0 alors exists
 » Debug.Print « « de cahier de travail il y a un cahier de travail. le « 
autrement « il n'y a pas un Workbook
 » Debug.Print « que le cahier de travail n'existe pas " wkdir de Workbooks.Add
Workbooks.Add.SaveAs du
'et extrémité With

End Sub d'If

de fin du datafilename
ActiveWorkbook.Close False
class= de

Réponse : rechercher le dossier avec le nom et prénoms exact dans VBA

C'est un texte d'attente.

Essai encore…

exiger - l'allumette :

Si "" de Dir (« d:\excel\somefile.xls <> ") alors
   le 'code pour le dossier existe
Autrement
   le 'code pour le dossier n'existe pas
Finir si

allumette partielle :

Si Dir (« "" de d:\excel\ <> *somefile*.xls*") alors
   'code pour au moins 1 allumette
Autrement
   'code pour aucunes allumettes
Finir si