Problemas con busqueda de archivo txt

[wester]

Que mas gente del foro, les tengo una dudita, quien podria decirme como creo un formulario que me permita buscar un archivo txt en todo el PC, asi como lo hace el menu"Archivo-Abrir"
y al encontrarlo me devuelva la ruta completa

Gracias

[BrujoNic]

A como yo lo tengo, crear un botón en un formulario con el nombre de cargarTXT, le das botón derecho, propiedades, todas, te vas al evento Al hacer click, le das crear el procedimiento, y lo modificas a como te lo pongo abajo:

Código PHP:

  Private Sub cargarTXT_Click() 
On Error GoTo Err_cargarTXT 
 
    Dim stDocName As String 
    Dim stLinkCriteria As String 
 
    stDocName = "frm AgregaTXT" 
    DoCmd.OpenForm stDocName, , , stLinkCriteria 
 
Exit_CargarTXT: 
    Exit Sub 
 
Err_cargarTXT: 
    MsgBox Err.Description 
    Resume Exit_CargarTXT 
End Sub  
   

Si te fijas, hace una invocación a un formulario llamado frm AgregaTXT, lo creas y le agregas la siguiente lógica:

Código PHP:

  Private Sub Form_Open(Cancel As Integer) 
' Proposito  : Invoca la función Common Dialog GetOpenFileName de Windows 
' para permitir al usuario a elegir un archivo txt 
' Parámetros : Cancelar - 
' Creado/Modificado   : 01/07/2003, 
On Error GoTo ErrHandler 
  Dim strFilter As String 
  Dim Responder As Integer 
  strFilter = ahtAddFilterItem(strFilter, "Archivos Texto (*.txt)", "*.TXT") 
'        strFilter = ahtAddFilterItem(strFilter, "dBASE Files (*.dbf)", "*.DBF") 
'        strFilter = ahtAddFilterItem(strFilter, "Text Files (*.txt)", "*.TXT") 
'        strFilter = ahtAddFilterItem(strFilter, "All Files (*.*)", "*.*") 
'        strPathAndFile = ahtCommonFileOpenSave(InitialDir:="C:\", _ 
'        Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _ 
'        DialogTitle:="Elija el archivo TXT a procesar") 
  strPathAndFile = ahtCommonFileOpenSave(Filter:=strFilter, _ 
  FilterIndex:=3, Flags:=ahtOFN_READONLY, _ 
  DialogTitle:="Elija el archivo TXT a procesar") 
'    lngFlags, _ 
 
  If Len(strPathAndFile) > 0 Then 
    Responder = MsgBox("¿Desea Importar el archivo " & strPathAndFile, vbOKCancel, "Importar Archivo") 
    If Responder = vbOK Then 
      Importar_txt (strPathAndFile) 
      MsgBox "Importación de archivo " & IstrPathAndFile & _ 
             " concluida", vbExclamation, "Importación de archivo" 
'      Resume Exit_Sub 
    Else 
      MsgBox "Importación de archivo TXT cancelada", vbExclamation, strPathAndFile 
    End If 
'        Me![imgTheImage].Picture = strPathAndFile 
  Else 
    MsgBox "No selecciono archivo, no se va a realizar la carga.", vbExclamation, "Error, en selección de archivo" 
    Cancel = True 
  End If 
    ' Since you passed in a variable for lngFlags, 
    ' the function places the output flags value in the variable. 
  DoCmd.Close 
Exit_Sub: 
  Exit Sub 
ErrHandler: 
  MsgBox "Error " & Err.Number & " : " & Err.Description & " in Form_Open", vbExclamation, "Error, en selección de archivo" 
  Cancel = True 
  Resume Exit_Sub 
End Sub 
 
Private Function Importar_txt(arch_txt As String) As String 
  DoCmd.TransferText acImportDelim, "Especificación de importación", _ 
                                    "tabla", arch_txt, False 
End Function  
   

Los parámetros Especificación de importación, creo que lo podes omitir, no recuerdo bien ya que no manejo Access, eso fue un proyecto que hice en mi trabajo por urgencia, así que buscas en internet o la ayuda de accessDoCmd.TransferText acImportDelim

[wester]

Muchas gracias amigo, por tu aporte, ahora voy a probar el codigo a ver que tal funciona.

Saludos.