Autor Tema: Re: GetOpenFileName , GetSaveFileName (Leído 5384 veces)

Brroz · « **en:** Jueves 31 de Julio de 2003, 09:38 »

Saludos a todos.

Usualmente utilizo las funciones 'GetOpenFileName' y 'GetSaveFileName' de las api para obtener un cuadro de diálogo donde el usuario pueda especificar un nombre de archivo que abrir o guardar.

Lo que no consigo es que aparezca en el cuadro de texto para el nombre del archivo un nombre que yo especifique por defecto. No es que esto sea un problema, pero es un detalle que me gustaría resolver.

Gracias por la atención.

giomar

Para aquellas aplicaciones donde quiero que se muestre una ventana Abrir o Guardar hago uso del control CommonDialog.
Ahora si deseas que aparesca el nombre de un archivo por defecto al llamar a la ventana Abrir, tienes que hacer uso de su propiedad FileName, por ejemplo
CommonDialog1.FileName = "C:WindowsEscritorioDocumento.txt"
Aqui se le indica la ruta del archivo que deseas que se muestre por defecto.
Luego se indica que tipo de ventana se deseas utilizar: CommonDialog1.ShowOpen (ventana abrir)
Para tener en cuenta:
Si deseas especificar que solo se muestren por ejemplo documentos Word
ingresa la siguiente linea de codigo antes de llamar a la ventana: CommonDialog1.Filter = "todos los archivos de texto|*.doc"
he incluso puedes cambiar el titulo de la ventana: CommonDialog1.DialogTitle = "Nuevo titulo"
Entre otras cosas.
Ha me olvidaba para activar este control tienes que ir a la opción Componentes.. del menu Proyecto y en la ventana marcar la opción Microsoft Common Dialog Control 6.0 (SP3)
Bueno espero que te sirva de algo lo que te he comentado.
Un saludo...
<Giomar>

Brroz

Agradezco tus comentarios, pero utilizo normalmente estas apis para en muchos casos evitar el añadir ningún formulario al proyecto para usar un control CommonDialog. Incluso aunque use formularios, evito cargarlos con controles que no son visibles si tengo otra forma de hacer las cosas.

En el caso de estas apis, funcionan perfectamente para lo que busco, exceptuando lo del nombre de archivo por omisión (la vía de acceso por omisión sí me funciona).

Me consta que hay alguna forma de hacerlo, supongo que habrá que utilizar otra api.

En fin, gracias de todas formas.

Brroz

Saludos para tod@s.

Hace tiempo inicié este tema y por fin lo cierro...
El problema estaba en una error de codificación, que de tan evidente que era, se me escapaba, y es que a veces las tonterías más simples hacen que nos volvamos locos... Por si a alguien le interesa, aquí pongo el código que usaba pero ya corregido (el ejemplo es sólo de GetSaveFileName, el funcionamiento de GetOpenFileName es prácticamente el mismo por lo que lo omito):

Código: Text

 
Private Const OFN_READONLY = &H1
Private Const OFN_OVERWRITEPROMPT = &H2
Private Const OFN_HIDEREADONLY = &H4
Private Const OFN_NOCHANGEDIR = &H8
Private Const OFN_SHOWHELP = &H10
Private Const OFN_ENABLEHOOK = &H20
Private Const OFN_ENABLETEMPLATE = &H40
Private Const OFN_ENABLETEMPLATEHANDLE = &H80
Private Const OFN_NOVALIDATE = &H100
Private Const OFN_ALLOWMULTISELECT = &H200
Private Const OFN_EXTENSIONDIFFERENT = &H400
Private Const OFN_PATHMUSTEXIST = &H800
Private Const OFN_FILEMUSTEXIST = &H1000
Private Const OFN_CREATEPROMPT = &H2000
Private Const OFN_SHAREAWARE = &H4000
Private Const OFN_NOREADONLYRETURN = &H8000
Private Const OFN_NOTESTFILECREATE = &H10000
Private Const OFN_SHAREFALLTHROUGH = 2
Private Const OFN_SHARENOWARN = 1
Private Const OFN_SHAREWARN = 0
Private Type tagOPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
Private Declare Function GetSaveFileName Lib &#34;COMDLG32.DLL&#34; Alias &#34;GetSaveFileNameA&#34; (pOpenfilename As tagOPENFILENAME) As Long
 
Public Function GuardarArchivo( _
Optional ByVal Hwnd As Long,  _
Optional ByVal DftPath As String,  _
Optional ByVal DftFile As String,  _
Optional ByVal DftTitle As String,  _
Optional ByVal DftExt As String, _
Optional ByVal FilterIdx As Integer) As String
    
    On Error GoTo Err_GuardarArchivo
 
    Dim strFilter As String
    strFilter = &#34;Todos los archivos (*.*)&#34; & Chr(0) & &#34;*.*&#34; & Chr(0) _
    & &#34;Archivos de texto delimitado (*.csv)&#34; & Chr(0) & &#34;*.csv&#34; & Chr(0) _
    & &#34;Archivos de intercambio de datos (*.dif)&#34; & Chr(0) & &#34;*.dif&#34; & Chr(0) _
    & &#34;Archivos de texto (*.txt)&#34; & Chr(0) & &#34;*.txt&#34; & Chr(0) _
    & &#34;Libros de microsoft excel (*.xls)&#34; & Chr(0) & &#34;*.xls&#34; & Chr(0)
    
    If Trim(DftExt) = &#34;&#34; Then DftExt = &#34;*.*&#34;
    If Trim(DftTitle) = &#34;&#34; Then DftTitle  = &#34;Guardar archivo como&#34;
    If Trim(DftPath) = &#34;&#34; Then   DftPath = App.Path
    If Len(DftFile) &#60; 255 Then DftFile = DftFile & String(255 - Len(DftFile), &#34; &#34;)
    If FilterIdx = 0 Then FilterIdx = 1
    
    Dim File As tagOPENFILENAME
    With File
        .lStructSize = Len(File)
        .hwndOwner = Hwnd
        .lpstrFilter = strFilter & Chr(0)
        .nFilterIndex = FilterIdx
        .nMaxFile = Len(DftFile) + 1
        .lpstrFile = DftFile & Chr(0)
        .nMaxFileTitle = Len(DftTitle) + 1
        .lpstrFileTitle = DftTitle & Chr(0)
        .lpstrTitle = DftTitle & Chr(0)
        .lpstrInitialDir = DftPath & Chr(0)
        .lpstrDefExt = DftExt & Chr(0)
        .flags = OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY Or OFN_OVERWRITEPROMPT
        .hInstance = App.hInstance
        .lpfnHook = 0
        .lpTemplateName = 0
        .nFileOffset = 0
        .lCustData = 0
    End With
        
    Dim lngRc As Long
    lngRc = GetSaveFileName(File)
    If lngRc &#60;&#62; 0 Then
        GuardarArchivo = Left(File.lpstrFile, InStr(1, File.lpstrFile, Chr(0)) - 1)
    Else
        GuardarArchivo = &#34;&#34;
    End If
    
    Exit Function
 
Err_GuardarArchivo:
    MsgBox &#34;Error seleccionando archivo.&#34; & String(2, vbCrLf) _
    & &#34;(&#34; & Err.Number & &#34;) &#34; & Err.Description & &#34;.&#34; _
    , vbCritical, &#34;Guardar archivo&#34;
 
End Function
 
 

Como curiosidad: la línea que provocaba que no apareciese el archivo por defecto era esta:

Código: Text

 
   .lpstrFile = Chr(0) & DftFile & Chr(0)

El fallo es evidente, ¿no?

Espero que a alguien esto le sea útil.
Abur.

Asa

Y alguien sabe la funcion que en vez de ofrecer coger un archivo, se pueda escojer un directorio?

RadicalEd

GRACIAS POR LA INFORMACION Brroz
ES DE MUCHA AYUDA PARA TODOS

Brroz

Para Asa (y a quien interes, por supuesto):

Puedes obtener un cuadro de diálogo para seleccionar una carpeta mediante este código:

Código: Text

 
Option Explicit
 
Private Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
   ulFlags As Long
   lpfn As Long
   lParam As Long
   iImage As Long
End Type
Private Declare Function SHGetPathFromIDList Lib &#34;shell32.dll&#34; Alias &#34;SHGetPathFromIDListA&#34; (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib &#34;shell32.dll&#34; Alias &#34;SHBrowseForFolderA&#34; (lpBrowseInfo As BROWSEINFO) As Long
 
Public Function SeleccionarPath(Byval HWnd as long, Byal Titulo as strinh) As string
 
   Dim bInf As BROWSEINFO
   Dim lRc As Long
   Dim lPathID As Long
   Dim sPath As String
    
   If Titulo = &#34;&#34; Then Titulo = &#34;Recuperar vía de acceso&#34;
   bInf.hOwner = hWnd
   bInf.lpszTitle = Titulo
   bInf.ulFlags = BIF_RETURNONLYFSDIRS
   lngPathID = SHBrowseForFolder(bInf)
   sPath = String(512, Chr(0))
   lRc = SHGetPathFromIDList(lPathID, sPath)
   If lRc &#62; 0 Then SeleccionarPath = Left(sPath, InStr(1, sPath, Chr(0)) - 1)
 
End Function
 
 

Abur.