Buenas tengo dos problemas con GetSaveFileName y GetOpenFileName , el cual no me respeta los filtros

este es el codigo que estoy usando

En un modulo

Código:

Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
 Alias "GetOpenFileNameA" ( _
 pOpenfilename As OPENFILENAME) As Long
Private Declare Function GetSaveFileName Lib "comdlg32.dll" _
 Alias "GetSaveFileNameA" ( _
 pOpenfilename As OPENFILENAME) As Long
 
Private Type OPENFILENAME
 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


Public Function OpenFile(Filter As String) As String
Dim OFName As OPENFILENAME
 
 With OFName
 .lStructSize = Len(OFName)
 '.hwndOwner = Me.hWnd
 .hInstance = App.hInstance
 .lpstrFilter = Filter
 .lpstrFile = Space$(254)
 .nMaxFile = 255
 End With


 If GetOpenFileName(OFName) Then OpenFile = Trim$(OFName.lpstrFile)

End Function


Public Function SaveFile(Filter As String) As String
Dim OFName As OPENFILENAME

 With OFName
 .lStructSize = Len(OFName)
 '.hwndOwner = Me.hWnd
 .hInstance = App.hInstance
 .lpstrFilter = Filter
 .lpstrFile = Space$(254)
 .nMaxFile = 255
 End With

 If GetSaveFileName(OFName) Then SaveFile = Trim$(OFName.lpstrFile)

End Function

y en el formulario

Código:

Private Sub Command1_Click()
Dim Filtro As String, Path As String
Filtro = "Archivos de Datos (*.LIA)" + Chr$(0) + "*.LIA" + Chr$(0)
Path = SaveFile(Filtro)
MsgBox Path
End Sub

Private Sub Command2_Click()
Dim Filtro As String, Path As String
Filtro = "Archivos de Datos (*.LIA)" + Chr$(0) + "*.LIA" + Chr$(0)
Path = OpenFile(Filtro)
MsgBox Path
End Sub

el problema en el caso de Guardar, es que cuando yo pongo un nombre en el cuadro de dialgo por ejemplo "Documento" este me retorna solamente Ruta + "Documento" y no como el commandialog.ocx que este te devuelve Ruta + "Documento.LIA"

y en el caso de Abrir , si yo escrivo en el cuadro de texto del dialogo "Documento.html y este archivo existe en ese directorio , pues me lo hacepta siendo que yo en el filtro indique que solamente me abra los "*.LIA"

Se que podria hacer unas validaciones, pero realmente no esta bien que sea asi, porque algunas aplicaciones filtran esto.

Saludos

Hola,te faltaria agregar esta linea en el Modulo:

Código:

With OFName
 .lStructSize = Len(OFName)
 '.hwndOwner = Me.hWnd
 .hInstance = App.hInstance
 .lpstrFilter = Filter
 .lpstrFile = Space$(254)
 .nMaxFile = 255
 .lpstrDefExt = ".lia"
End With

y cuando lo abris te tira la ruta mas la extencion ,no se si es eso lo que queres??

y para lo otro lo tendria que ver pero yo creo que con decirle que no habra los que no sean .lia estaria bien,por ejemplo si elije un html siendo el filtro .lia entonces que mande un mensaje que esa extencion no la abre,decirlo es facil pero lo estoy viendo haber si lo puedo hacer.

saludos.


Edited by: seba123neo

bien Seba si esta perfecto , y por lo de abrir tenes rason estuve mirando otras aplicaciones y si hacen una validacion para abrir , el unico que no te permite es el de Ofice que es si filtra desde el cuadro de dialogo pero no importa total el archivo lo creo yo asi que le pongo una validacion y listo.


Gracias