Access - crea carpeta pero si ya existe que la abra

Private Sub Comando82_Click()

Dim appWord As Word.Application

Dim docs As Word.Documents

Dim doc As Word.Document

Dim campoWord As Object

Dim strRutaPlantilla As String

Dim strTestPlantilla As String

Dim strNuevoDocumento As String

Dim strDirectorio

On Error GoTo manejadorError

'AQUI ESTÁ MI DUDA... COMO LE PUEDO DECIR QUE SI LA CARPETA EXISTE, SOLAMENTE QUE LA ABRA"

strDirectorio = "RUTA DE DONDE QUEREMOS LA CARPETA" & Me.CAMPO DEL FORMULARIO

MkDir strDirectorio

strRutaPlantilla = "\RUTA DE DONDE QUEREMOS LA CARPETA\PLANTILLA.doc" strNuevoDocumento = strDirectorio & "\" & Me.CAMPO DEL FORMULARIO & ".doc"

'Sí existe el archivo lo abrimos y nos salimos,

' sino existe lo creamos

strTestPlantilla = Nz(Dir(strNuevoDocumento))

If strTestPlantilla <> "" Then

If MsgBox("El Documento ya existe. ¿Desea actualizarlo", _

vbInformation + vbYesNo + vbDefaultButton2, _

"I2000 GADAR Actualizar Documento") = vbNo Then

'Esta linea la ponemos solo sí queremos que se abra el documento

Application.FollowHyperlink strNuevoDocumento

Exit Sub

End If

End If

Set appWord = CreateObject(Class:="Word.Application")

Set docs = appWord.Documents

Set doc = docs.Add(strRutaPlantilla)

Set campoWord = doc.CustomDocumentProperties

On Error Resume Next

With appWord

.Visible = True

.Selection.WholeStory

.Selection.Fields.Update

.ActiveDocument.SaveAs strNuevoDocumento

.Activate

.Selection.EndKey Unit:=wdStory

.Selection.GoTo What:=wdGoToHeading, Which:=wdGoToFirst

End With

manejadorErrorSalir:

Exit Sub

manejadorError:

If Err.Number = 429 Then

Set appWord = CreateObject(Class:="Word.Application")

Resume Next

Else

MsgBox Err.Description, , "Error Nº: " & Err.Number

Resume manejadorErrorSalir

End If

End Sub

Dim Archivo, dir_actual

dir_actual = CurDir()      ' Raiz principal

ChDrive("C")       ' se coloca en C

ChDir("C:\ ")

Archivo = Dir("C:\FACTURACION", vbDirectory)    ' directorio o carpeta a crear

If Archivo = "" Then                     ' el directorio o carpeta no existe

	ChDir("C:\ ")                            'se coloca en C:\

	MkDir("FACTURACION")      ' se crea el directorio 

End If