Visual Basic para Aplicaciones - Buscar carpeta en directorio por nombre de carpeta

Saludos, ya tengo hecho lo de buscar si existe una carpeta en una ruta, y si no existe la crea, pero ahora me piden que busque solo que contenga el numero de proyecto (sin el nombre y el cliente, q es lo q incluye el nombre d la carpeta), es decir, que el nombre de la carpeta contenga la cadena de texto que tengo en una variable. Como lo puedo hacer? Ahora lo tengo con mkdir, pero no se como decirle que busque si contiene. Agradecería vuestra ayuda, llevo varios dias buscando por foros y nada, por lo que me he decidido a preguntar

Utiliza los caractetes comodi * ó ?

Por ejemplo si el nombre de la carpeta es 356JesusJuan y tu variable contiene Variable=356 la carpeta a buscar seria Variable* me imagino que para buscar carpetas utilizas la funcion Dir()

Dir[(nombre_ruta[, atributos])]

En el ejemplo seria

Dim A as String
Dim Ruta as string
Ruta ="C:\"

A=Dir(Ruta & Variable & "*",vbDirectory)

MUCHAS GRACIAS cmgcharli,

No había contemplado la posibilidad que me dices, pero he hecho pruebas y no se como hacerlo, yo tengo creado el siguiente codigo (ABAJO):

Entonces lo que quiero no es q solo me mire si existe la carpeta por nombre idéntico, sinó q con que exista la carpeta por el numero de proyecto es suficiente, que lo tengo creado con la variable numero, por eso lo de la expresión q contenga, pero claro no se donde colocarlo en mi código... y si necesito otro if... a ver si me puedes echar un cable porqu estoy hecha un lío.

----------------------------------

numero = Range("N2").Value
proyecto = Range("p2").Value
cliente = Range("n1").Value
nombre = Range("n2").Value & "-" & Range("S4").Value & " " & "Escandallo - " & Range("P2").Value & " - " & Range("N1").Value

destino = "\\atpsrv\COMERCIAL\PROYECTOS COMERCIAL\PROYECTOS" & "\" & numero + " " + proyecto + " " + "-" + " " + cliente + "\" + "Escandallos"
destino0 = "\\atpsrv\COMERCIAL\PROYECTOS COMERCIAL\PROYECTOS\" & numero
archivo = destino & "\" + nombre + ".xlsm"
archivo2 = destino & "\" + nombre + ".pdf"
Worksheets(1).Select




Set fso = CreateObject("Scripting.FileSystemObject")
If fso.fileexists(archivo) Then
MsgBox "El archivo ya existe, se ha creado un nuevo archivo de excel por si quiere guardarlo provisionalmente"
Exit Sub
Else
On Error Resume Next



oldName = "ESCANDALLO"
newName1 = Range("N2").Value
newName2 = Range("S4").Value
newName = newName1 & "-" & newName2




MkDir _
"\\atpsrv\COMERCIAL\PROYECTOS COMERCIAL\PROYECTOS" & "\" & numero + " " + proyecto + " " + "-" + " " + cliente


MkDir _
"\\atpsrv\COMERCIAL\PROYECTOS COMERCIAL\PROYECTOS" & "\" & numero + " " + proyecto + " " + "-" + " " + cliente + "\" + "Escandallos"


ActiveWorkbook.SaveAs Filename:= _
archivo _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

ActiveSheet.Name = newName
ActiveWorkbook.Save
ActiveWorkbook.Close

Windows("Base de Costes.xlsm").Activate

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
archivo2 _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

End If
---------

Yo lo haria con la función InStr por ejemplo, ya que no es necesario una expresion regular

pos=InStr(pos_inicial, codigo_proyecto, ruta, vbTextCompare)
Si pos es 0 es que ruta no contiene el código de proyecto

también podrías usar el operador Like...

Saludos, desde Baires, JuanC

Hola Alberto, he probado la funcion q comentas pero para mi caso no me vale, ya que quiero comparar un texto dentro de una variable, y ver si alguna carpeta dentro de una ruta contiene este texto. Y en este caso compara solo el nombre de la ruta con el texto, no las carpetas q hay en esa ruta... uff no se como hacerlo. GRACIAS

Hola Esther,

Para obtener las rutas de comparación posibles tienes herramientas que te permiten recorrer directorios y obtener información.

Saludos cmgcharli no me acaba de funcionar dir poniendo la variable y luego & "*" , para decirle que contiene la variable... , no se que estoy haciendo mal, pero los caracteres comodin despues de una variable no los acaba de coger bien

Saludos, alguien me puede decir que es lo que estoy haciendo mal?

----------------------------
If Len(Dir(destino0 & "*", vbDirectory)) = 0 Then
MsgBox "Este archivo NO existe"
Else
MsgBox "Este archivo existe"
End If
-------------------------------


Donde destino0 = \\atpsrv\proyectos\cliente\12-1234
Es decir, lo que quiero es buscar todas las carpetas dentro de \\atpsrv\proyectos\cliente\ que contengan una carpeta que sea igual, o contenga 12-1234, por eso lo de añadir el asterisco, pero no me hace bien la comparación....
A ver si me podeis ayudar. GRACIAS

Ya lo he solucionado con Dir y "*", GRACIAS POR VUESTRA AYUDA

Ahora al modificar esto me sale otro error q nada tiene q ver y q antes no me salía.... pero bueno... a seguir peleando