Especificar extensión en programación vb

Le proporcionamos una función. Antes de usar esta función, debe crear una función de registro. Se recomienda hacer referencia directamente al módulo de operación de registro proporcionado por VB6. Este módulo ya está instalado con VB6, los módulos nuevos simplemente pueden usar la plantilla.

'=========================================== ======================================

'Agregar y eliminar archivos Parámetros de asociación OK: sufijo, descripción del archivo, agregar/eliminar, [índice del icono de archivo]

'========================= ==================================================== ======

Sub SET_LINK público (mSuffix como cadena, mStyle como cadena, mState como booleano, Iconi opcional como entero)

Dim mLink As String 'Sufijo asociado como cadena

Dim mOpen As String 'Ruta asociada para abrir el programa

En caso de error, vaya a RegKeyError

mLink = LCase(mSuffix)

mOpen = App.Path & "\" & App.EXEName & ".exe" 'La ruta del programa que se asociará con el archivo abierto.

Si mState Entonces

'Establecer asociación de archivos

Llamar a UpdateKey(HKCR, "." & mLink, "", mLink & ".file")

Llamar a UpdateKey(HKCR, mLink & ".file", "", mStyle)

Llamar a UpdateKey(HKCR, mLink & ".file\ DefaultIcon", "", mOpen & " ," & Iconi)

Llamar a UpdateKey(HKCR, mLink & ".file\Shell", "", "")

Llamar a UpdateKey(HKCR, mLink & ".file\ Shell", "", "")

Llamar a UpdateKey(HKCR, mLink & ". amp; ".file\Shell\Open", "", "")

Llamar UpdateKey(HKCR, mLink & ".file\Shell\Open", "", "")

Llamar a UpdateKey(HKCR, mLink & ".file\Shell\Open\command", "", mOpen & " %1")

Else

' Eliminar asociación de archivos

Llamar a DeleteKey(HKCR, "." & mLink)

Llamar a DeleteKey(HKCR, mLink y ".file\Shell\Open\command")

Llamar a DeleteKey(HKCR, mLink y ".file\Shell\Open")

Llamar a DeleteKey(HKCR, mLink y ".file\Shell")

Llamar a DeleteKey(HKCR, mLink y ".file\DefaultIcon")

Llamar a DeleteKey(HKCR, mLink) & ".file")

Finalizar si

Salir del sub

RegKeyError:

Fin del sub

Para ejemplo, SET_LINK "123", "123 archivo personalizado", Verdadero, 0 Registra 123 archivos con nombre de sufijo. Cambiar la misma función a Falso eliminará esta asociación.

Después de la asociación, al hacer doble clic en el archivo asociado se abrirá directamente el programa asociado. Puede usar la función Comando en un programa para obtener el parámetro entrante, que si hace doble clic en el programa asociado, será la ruta al archivo asociado. De esta manera puedes hacer muchas cosas en el programa.

El módulo de registro está ubicado en el mismo directorio que VB98 (es decir, el directorio raíz de la instalación de VB), en la carpeta Plantilla(Módulo)--"Código(Catálogo de códigos)". O agregue un módulo seleccionando la pestaña existente, luego la carpeta Plantillas y luego la carpeta Código, donde hay un módulo de "Acceso al Registro" listo para usar.