Windows Explorer in VB dot net

[Dilip]

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.............

Plzz help me
thanks in advance

Regard
Dilip Yadav

 

[Cor Ligthert [MVP]]

Dilip,

A pity for you is that there is now in 2005 the my.computer class which
holds probably most information that you want.

http://msdn2.microsoft.com/en-us/library/ms172966.aspx

Therefore the only help you probably can get is from somebody who has it by
hand. It is less interesting for many to investigate something in VS 2003 as
it is easy to do in VS 2005

I hope anyhow that this information helps you,

Cor

 

[Dilip]

Hi Cor

First of all thanks for ur suggestion....

but i have only visual studio 2003 ..........even i know that u already
told me
that
my.computer class in 2005 ......

may i get any substitue .........or something like my.computer class in

visual studio 2003

basically my need to show the folder's
Author , Title , comments in popup window

hope for positive reply
and once again thank for your mail
bye

Regard
Dilip Yadav

 

[Cor Ligthert [MVP]]

Dilip,

This is the directoryinfo class

http://msdn.microsoft.com/library/d...ml/frlrfsystemiodirectoryinfomemberstopic.asp

However what do you mean with the Author, Tittle and Comments of a
directory?

Cor

 

[Dilip]

hi Cor,
thanks for ur reply

well
i will try with this link
but b4 this wht i have done is that

i have tried with this code ...but this will not work with visual
studio2003
it show an error ..
http://msdn2.microsoft.com/en-us/library/0b485hf7.aspx
i have tried with this code ...but this will not work with visual
studio2003
it show an error ..

Example- http://msdn2.microsoft.com/en-us/library/0b485hf7.aspx

This example checks to determine whether the folder C:\backup\logs
exists and checks its properties.


Dim logInfo As System.IO.DirectoryInfo
If My.Computer.FileSystem.DirectoryExists("C:\backup\logs") Then
logInfo = My.Computer.FileSystem.GetDirectoryInfo _
("C:\backup\logs")
End If

 

[Cor Ligthert [MVP]]

Dilip,

That does not work in VB2003

Did you look at the samples on this page.

http://msdn.microsoft.com/library/d...html/frlrfSystemIODirectoryInfoClassTopic.asp

I hope this helps,

Cor

 

[Micky]

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)