"Dilip" <ya*********@gmail.com> wrote in message news:11**********************@g49g2000cwa.googlegr oups.com...
hi all
I have created a Windows explorer in VB dot net windows application
in Visual studio 2003
where i can browse complete system and able to show
all possible SubDirectories of SubDirectories of
SubDirectories............. mean
upto end .............
i show it with complete path for each . and it will be show at listview
now i need when i click one of the ListView items.
It should show the complete Details or can say properties for that
FOLDER
like i want to display
Title , Author , Commnet for that Folder in a any type of Pop up window
just like seeing windows folder properties in microsot window.
it's really urgent i need it.............
For VB.NET, use the following to show a file's properties:
Structure SHELLEXECUTEINFO
Dim cbSize As Integer
Dim fMask As Integer
Dim hwnd As Integer
Dim lpVerb As String
Dim lpFile As String
Dim lpParameters As String
Dim lpDirectory As String
Dim nShow As Integer
Dim hInstApp As Integer
Dim lpIDList As Integer
Dim lpClass As String
Dim hkeyClass As Integer
Dim dwHotKey As Integer
Dim hIcon As Integer
Dim hProcess As Integer
End Structure
Const SEE_MASK_INVOKEIDLIST = &HC
Const SEE_MASK_NOCLOSEPROCESS = &H40
Const SEE_MASK_FLAG_NO_UI = &H400
Declare Function ShellExecuteEx Lib "shell32.dll" (ByRef SEI As SHELLEXECUTEINFO) As Integer
Sub ShowProperties(ByVal lpFile As String, ByVal hWnd As Integer)
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 = hWnd
.lpVerb = "properties"
.lpFile = lpFile
.lpParameters = vbNullChar
.lpDirectory = vbNullChar
.nShow = 0
.hInstApp = 0
.lpIDList = 0
End With
r = ShellExecuteEx((SEI))
End Sub
Example usage:-
ShowProperties("C:\WINDOWS\WIN.INI", Me.Handle.ToInt32)
