Programacion en Access
Hola, necesito urgente saber como hago para determinar en access (Motor VB) el directorio de trabajo.
Necesito exportar a Excel, pero necesito que access reconozca el directorio en donde está guardada la base de datos para guardar allí ese archivo. Es decir, el directorio de trabajo
Necesito exportar a Excel, pero necesito que access reconozca el directorio en donde está guardada la base de datos para guardar allí ese archivo. Es decir, el directorio de trabajo
1 respuesta
Respuesta de rgsnipper
1
Currentdb. Name
Te devuele la unidad, path y nombre
Del fichero Access que estas ejecutando.
A partir de allí puedes extraer el nombre con la función que te adjunto:
MPathDirSplit( currentdb. Name)
->c:\mis documentos\
-- codigo mPathDirSplit ----
Function mPathDirSplit(ByVal cFile As String)
'extrae el path de un nombre de fichero
Dim i As Integer
For i = Len(cFile) To 1 Step -1
If InStr(1, Chr(92) & ":", Mid(cFile, i, 1)) <> 0 Then
mPathDirSplit = Mid(cFile, 1, i)
Exit Function
End If
Next i
mPathDirSplit = ""
End Function
Te devuele la unidad, path y nombre
Del fichero Access que estas ejecutando.
A partir de allí puedes extraer el nombre con la función que te adjunto:
MPathDirSplit( currentdb. Name)
->c:\mis documentos\
-- codigo mPathDirSplit ----
Function mPathDirSplit(ByVal cFile As String)
'extrae el path de un nombre de fichero
Dim i As Integer
For i = Len(cFile) To 1 Step -1
If InStr(1, Chr(92) & ":", Mid(cFile, i, 1)) <> 0 Then
mPathDirSplit = Mid(cFile, 1, i)
Exit Function
End If
Next i
mPathDirSplit = ""
End Function
