Cambiar Directorio

Hola buenas noches tengo esta macro


Private Sub Workbook_Open()

If ThisWorkbook.Path = "C:\Datos\Excel" Or ThisWorkbook.Path > "D:\Datos\Excel" _
Or ThisWorkbook.Path = "E:\Datos\Excel" Or ThisWorkbook.Path > "F:\Datos\Excel" _
Or ThisWorkbook.Path = "G:\Datos\Excel" Or ThisWorkbook.Path > "H:\Datos\Excel" _
Or ThisWorkbook.Path = "I:\Datos\Excel" Or ThisWorkbook.Path > "J:\Datos\Excel" _
And ThisWorkbook.Name = "Presupuesto.xls" Then
Else
Sheets("Hoja2").Select
Range("B3").Select
Else
MsgBox "Este usuario no esta autorizado para usar el Archivo",
vbOKOnly + vbCritical, "Error de Inicio"
End If
End Sub


Pero resulta que como el archivo se encuentra en un servidor y dependiendo
de la ubicacion cambia la unidad,

Existe una forma de especificar cualquier unidad comodin como p.e. ? *,
teniendo encuenta la ruta de la carpeta.

gracias de antemano

nelsonb

... el operador Like, algo como:
If ThisWorkbook.Path Like "[ABCDEFGHIJKLMNOPQRSTUVWXYZ]:\Datos\Excel" [...]

hola, chicos !

> ... el operador Like, algo como:
> If ThisWorkbook.Path Like "[ABCDEFGHIJKLMNOPQRSTUVWXYZ]:\Datos\Excel"

una version 'abreviada' ['omitiendo' la unidad 'raiz' y los dos puntos]...
With ThisWorkbook
If Mid(.Path, 3) = "\Datos\Excel" & .Name = "Presupuesto.xls" Then
' aqui las acciones 'correctas'
Else
' aqui el 'aviso' de error '
End If
End With

saludos,
hector.