Programación General > Visual Basic 6.0 e inferiores

 Propiedades De Un Fichero

(1/1)

ROBER.29:
Alguien sabe si existe una forma de poder utilizar la ventana de propiedades de un fichero del windows en nuestras aplicaciones?

He estado buscando si existía alguna API específica pero no la ha encontrado. Supongo q existirá alguna a la cual se la pase la ruta de un fichero y nos muestre la ventana de windows con las propiedades del mismo.

Gracias por su atención.

Saludos.

ROBER.29:
Ya he encontrado la solución. Es de la siguiente forma:



--- Código: Text --- \'#VBIDEUtils#***********************************************\' * Programmer Name  : Waty Thierry\' * Web Site         : www.geocities.com/ResearchTriangle/6311/\' * E-Mail           : waty.thierry@usa.net\' * Date             : 28/06/99\' * Time             : 13:16\' ********************************************************\' * Comments         : Showing the Properties dialog box\' *\' * This tip demonstrates how To use the Win32 API To\' * bring up the explorer properties\' * dialog box For a specified file.\' * This API Function has the same effect As Right\' * clicking On a file In Windows 95 And selecting properties. \' **************************************************Option Explicit Private Type SHELLEXECUTEINFO    cbSize As Long    fMask As Long    hwnd As Long    lpVerb As String    lpFile As String    lpParameters As String    lpDirectory As String    nShow As Long    hInstApp As Long    lpIDList As Long    lpClass As String    hkeyClass As Long    dwHotKey As Long    hIcon As Long    hProcess As LongEnd Type Private Const SEE_MASK_INVOKEIDLIST = &HCPrivate Const SEE_MASK_NOCLOSEPROCESS = &H40Private Const SEE_MASK_FLAG_NO_UI = &H400 Private Declare Function ShellExecuteEX Lib \"shell32.dll\" Alias \"ShellExecuteEx\" (SEI As SHELLEXECUTEINFO) As Long Public Function ShowProps(FileName As String, OwnerhWnd As Long) As Boolean \'USAGE:\'To show the properties dialog box of \"c:\\autoexec.bat\", use the following code:\'Call ShowProps(\"c:\\autoexec.bat\", Me.hwnd)\'Function will return false if\'property windows can\'t be shown for\'any reason (e.g., invalid file or Ownerhwnd)      On Error Resume Next    Dim SEI As SHELLEXECUTEINFO    Dim r As Long    With SEI        .cbSize = Len(SEI)        .fMask = SEE_MASK_NOCLOSEPROCESS Or _         SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI        .hwnd = OwnerhWnd        .lpVerb = \"properties\"        .lpFile = FileName        .lpParameters = vbNullChar        .lpDirectory = vbNullChar        .nShow = 0        .hInstApp = 0        .lpIDList = 0    End With    r = ShellExecuteEX(SEI)    ShowProps = rEnd Function  
Saludos.

Navegación

[0] Índice de Mensajes