How do I get all file paths from folder and subfolders?

Question

How do I get all file paths from folder and subfolders?

John Wilkinson 1

Hi, this might seem like a repeat question but I have literally been searching for days through everything I can find and trying example code from websites. But each code I try gives me the same results? I just tested the following code from Microsoft and I get the same result? Can anyone help me to understand what I need to do to get some code working in the way I'm trying to achieve?

Article: Directory.EnumerateFiles Method

system.io.directory.enumeratefiles

Imports System.IO  
Imports System.Xml.Linq  

Module Module1  


    Sub Main()  
        Try  
            Dim docPath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)  
            Dim files = From chkFile In Directory.EnumerateFiles(docPath, "*.txt", SearchOption.AllDirectories)  
                        From line In File.ReadLines(chkFile)  
                        Where line.Contains("Microsoft")  
                        Select New With {.curFile = chkFile, .curLine = line}  

            For Each f In files  
                Console.WriteLine($"{f.File}\t{f.Line}")  
            Next  
            Console.WriteLine($"{files.Count} files found.")  
        Catch uAEx As UnauthorizedAccessException  
            Console.WriteLine(uAEx.Message)  
        Catch pathEx As PathTooLongException  
            Console.WriteLine(pathEx.Message)  
        End Try  
    End Sub  
End Module

Bugs:

The f.File and f.Line statements were red-underlined in the code and intelisense suggested changing these to cufFile. I tried that and the result is below.

Result:

System.UnauthorizedAccessException: 'Access to the path 'C:\Users\username\Documents\My Music' is denied.'

What I'm Trying To Do

I am working on a WIN10 PRO system, VB.NET, Visual Studio 2019.

I am attempting to get a list of file paths from folders and subfolders and insert these file paths into a ListBox or ListView. By itself, this is a simple task which I have already got several working examples. But the problem comes with the type of file and the location. One task I want to do, for example, is get a list of all executable file paths for installed programs/apps from which I can extract the icons and also run the programs. But when I attempt to do this using the AllDirectories flag I get the above access denied exception. For example, if I try to get a list of file paths directly from C:\ I get an exception denying access to the Recycle Bin? I have also tried accessing folders such as Program Files, System32 and sysWow, but I get the same kind of access to the path denied exception? If I could learn how to code to be able to extract the file paths (i.e. *.exe) then I could use this code to populate a ListBox or a ListView, extract the icons and run the programs directly from the paths in the ListBox or ListView. I have actually achieved this manually, but I don't think all that work is very user friendly. I hope this is clear?

Code I'm Using

I managed to get this code working roughly to access some Directories and mostly subfolders of Directories as can be seen in the AFTER CODE CHANGES section!

'CLEAR LBX ITEMS:  
        ListBox1.Items.Clear()  

        If fbd.ShowDialog = DialogResult.OK Then  

            Try  
                Dim a() As String  
                Dim sFolder As String = fbd.SelectedPath  

                a = IO.Directory.GetFiles(sFolder, "*.exe", IO.SearchOption.AllDirectories)  

                For Each sFolder In a  

                    'Console.WriteLine(sFolder.ToString)  
                    ListBox1.Items.Add(sFolder.ToString)  

                Next  

            Catch ex As UnauthorizedAccessException  
                Console.WriteLine(ex)  
            End Try  

        End If  

        'LBX ITEMS TOTAL:  
        Label2.Text = ListBox1.Items.Count.ToString

EXCEPTIONS:

1. DESKTOP - WORKS! NO EXCEPTIONS!  
2. DOCUMENTS - System.UnauthorizedAccessException: 'Access to the path 'C:\Users\jmwil\Documents\My Music' is denied.'  
3. c:\ - System.UnauthorizedAccessException: 'Access to the path 'C:\$Recycle.Bin\S-1-5-18' is denied.'  
4. PROGRAM FILES - System.UnauthorizedAccessException: 'Access to the path 'C:\Program Files\Windows Defender Advanced Threat Protection\Classification\Configuration' is denied.'  
5. SYSTEM32 - System.UnauthorizedAccessException: 'Access to the path 'C:\Windows\System32\Com\dmp' is denied.'  
6. SysWOW64 - System.UnauthorizedAccessException: 'Access to the path 'C:\Windows\SysWOW64\Com\dmp' is denied.'

AFTER CODE CHANGES

After changing the code (above) I got a bit more success. However, I still cannot achieve my goal? Some Directories yield folders, subfolders and files. Whilst others yield nothing unless I click on each subfolder to obtain its files and files from its subfolders? For example, clicking on Program Files yields nothing? But clicking on a subfolder yields its contents. So, how do I get a list of all the exec files for installed programs?

DESKTOP: Successful - 5484 ListBox items!
DOCUMENTS: Not succesful - 0 ListBox items - Empty ListBox?
DOCUMENTS-SUBFOLDERS: Successful - Clicking
on almost any subfolder in the Documents folder
gets the subfolder contents including files in
its subfolders!
DOWNLOADS: Successful - 148 ListBox items!
MUSIC: Successful - 1 ListBox item!
PICTURES: Successful - 482 ListBox items!
VIDEOS: Successful - 2 ListBox items!
LOCAL DISK (c:): Not Successful - 0 ListBox items - Empty ListBox?
LOCAL DISK (c:) SUBFOLDERS: Successful - Almost all
subfolders with their subfolders and files!
PROGRAM FILES: Not Successful - 0 ListBox items - Empty ListBox?
PROGRAM FILES SUBFOLDERS: Successful - Almost all
subfolders with their subfolders and files!
WINDOWS FOLDER: Not Successful - 0 ListBox items - Empty ListBox?
WINDOWS SUBFOLDERS: Successful - Almost all
subfolders with their subfolders and files!
SYSTEM32: Not Successful - 0 Listbox items - Empty ListBox?
SYSTEM32 SUBFOLDERS: Successful - Almost all
subfolders with their subfolders and files!
SYSWOW: Not Successful - 0 Listbox items - Empty ListBox?
SYSWOW SUBFOLDERS: Successful - Almost all
subfolders with their subfolders and files!
DRIVE E: Not Successful - Interface freezes for a while then produces
no results - i.e. Empty ListBox?
DRIVE E SUBFOLDERS: Successful - All subfolders I tried showed their
subfolders and files.

CHANGED FILE SEARCH OPTION FROM . TO *.exe:

I don't need all the exec files. Just the ones related to the startup path of each installed program?

PROGRAM FILES: Not Successful - 0 ListBox Items - Empty ListBox?
7-ZIP (SUBFOLDER): Successful - 4 ListBox Items!
ADOBE (SUBFOLDER): Successful - 95 ListBox Items! Only 4 execs are necessary!
GOOGLE (SUBFOLDER): Successful - 7 ListBox Items! Only 1 exec is necessary!
IEXPLORE (SUBFOLDER): Successful - 5 ListBox Items! Only 1 exec is necessary!

SUGGESTED CODE RESULTS:

MS CODE - LAST EXAMPLE:

Tried the code to Access Documents, but it threw the following exception.
Also tried to access Desktop, but the result was exactly the same?

On line:

For Each fi In di.EnumerateFiles("*", SearchOption.AllDirectories)

Gives the following exception:

System.UnauthorizedAccessException: 'Access to the path 'C:\Users\username\Documents\My Music' is denied.'

Changed the special folder in the code to Program Files which threw the following exception:

On line:

Next (i.e. second Try Catch block)

Threw Exception:

System.UnauthorizedAccessException: 'Access to the path 'C:\Program Files (x86)\Google\CrashReports' is denied.'

Tried altering the special folder to Desktop and also changed the file size from files larger than 10MB to just

This is the only directory which I could get to work without throwing an exception?

Tried changing the special folder to fbd.SelectedPath, but this threw the following exception:

System.InvalidCastException: 'Conversion from string "C:\Users\username\Desktop" to type 'Integer' is not valid.'  
System.InvalidCastException: 'Conversion from string "C:\Users\username\Desktop\BIBLE STU" to type 'Integer' is not valid.'

Any help would be greatly appreciated! If you are able to give a simple code example it would greatly help me to learn!

2 answers

Your answer

Answer 1

Castorix31 90,686

See MSDN samples with EnumerateDirectories & EnumerateFiles how-to-enumerate-directories-and-files

John Wilkinson 1 Reputation point

2022-09-21T01:10:54.033+00:00

@Castorix31 Thanks for the link! I tried the last example on the page and have posted the results above. Please see both Code I'm Using > Exceptions and Suggested code > Exceptions. You will notice that Desktop works with both codes, but any other location throws access exceptions. I didn't try the other examples on the Enumerate directories and files page yet! What I need to know is how to avoid or skip these exceptions? The MS code on the page you suggest already has Try Catch, but I still continue to get exceptions? For example, I would like to get full paths for all the executable files for programs installed from Program Files, System32, sysWOW, etc., but without the exceptions? I also just included a screenshot if that helps. The program interface is very simple: Load uses the Folder Browser Dialog to access a folder; Run uses Process.Start to run a program, open a file, etc. from the selected item in the ListBox; Get Items copies the ListBox Items to a TextBox.
Castorix31 90,686 Reputation points

2022-09-21T07:09:21.87+00:00

What I need to know is how to avoid or skip these exceptions?

Those folders are skipped
MS code just uses Console.WriteLine as information, that you can remove
For example in MyDocuments, I have same exception when I try to open those folders with Explorer
John Wilkinson 1 Reputation point

2022-09-21T12:17:41.617+00:00

@Castorix31 Ok, so I'm understanding that those folders are skipped. But I still have a problem? 1. I want to get all the exec file paths for installed programs, for example, from Program Files and populate a ListBox with them. 2. Whatever code I use throws an exception when I try to access this or other system folders or even Documents? 3. When the program throws an exception my program freezes/crashes and therefore I don't get any results whatsoever and cannot use my program to do anything other than to access Desktop? So, I can't call this a solution because it simply doesn't work to accomplish what I want to do no matter how complex or simple the code is? What I need is a solution to this problem which I don't know how to resolve? I am trying to learn, but all the examples I have tried so far just bring me back to the same problem - unresolved exceptions which hinder me from getting where I want to go with this project?!
Castorix31 90,686 Reputation points

2022-09-21T12:31:26.457+00:00

. When the program throws an exception my program freezes/crashe

It should not crash with Try/Catch...
You can see VB codes posted in those threads :
function-to-enumerate-filesfolderssize-in-a-given-path
fastest-way-to-get-size-of-a-directory-including-all-files-and-sub-folders
(my sample uses NtQueryDirectoryFile, which is fast, but other samples are simpler)
John Wilkinson 1 Reputation point

2022-09-21T14:39:54.347+00:00

@Castorix31By "freezes/crashes" I mean my program either becomes unresponsive or I am diverted to the VS code editor window where I see the exception message. Whenever I get an exception message the code will not continue to run until the issue has been dealt with. This is actually explicit in the exception notification's header: i.e., Unhandled Exception! I understand this to mean that the exception has not been handled and therefore the program/code cannot continue until it has been resolved? I am affirming that at each exception the code/program stops running! I have never seen an exception which doesn't interrupt code execution and therefore causes the program to stop running until the issue has been resolved? So, I don't understand "It should not crash with Try/Catch" because although I used the last example on the page you suggest exactly because it employs Try/Catch, it still throws exceptions as I have detailed above? I used the code you suggested and have given details of the couple of modifications I made which don't cause the exceptions? I have tried many other codes with Try/Catch and the same thing happens? I am not trying to find the file or folder size. I want to gain access to all folders to extract the executable file paths for programs installed on my laptop of which I am the Administrator and sole user? The issue here is "access!" Although some people suggest ways to set permissions on the local computer this will not help other users! Is there some way to programmatically set access permissions?
Castorix31 90,686 Reputation points

2022-09-21T14:47:53.27+00:00

Did you try the samples, like the one from IronRazerz ?
Getting size is not important, it is just for the example of the loops
John Wilkinson 1 Reputation point

2022-09-21T18:01:24.327+00:00

@Castorix31 No, I haven't tried @IronRazerz example, yet! But I changed the Code I'm Using code which is no longer throwing exceptions. My mistake! I had my code outside the Try section :-)! However, see the new sections I added: AFTER CODE CHANGES and CHANGED FILE SEARCH OPTION FROM . TO *.exe. I still haven't managed to reach my goal of extracting a list of executable file paths for each program installed on my laptop? I can now do this subfolder by subfolder one at a time which is tedious, but that also gives me a lot of unnecessary exec files which I don't need, for Example Adobe folder and subfolders contains no less than 95 executables, but only 4 of those are what I need? Appreciate your patience! :-)
Castorix31 90,686 Reputation points

2022-09-21T18:31:31.667+00:00

I still haven't managed to reach my goal of extracting a list of executable file paths for each program installed on my laptop?

But the list of installed programs is mainly in "Program and Features", in Control Panel
Do you want to get this list ? (can be done with Shell APIs)
Because you don't need to scan all directories on the PC to find the right .exe files...

(and as you posted code in VB, you should use the dotnet-visual-basic tag)
John Wilkinson 1 Reputation point

2022-09-21T20:59:10.653+00:00
@Castorix31 Yes, I have looked at a number of code examples which get a "list of installed programs." I just looked at Programs and Features and the closest I can get to what I want is Location which only tells me where the startup files are located, i.e. folder. What I want to do is get a list of executable file paths for installed programs something like the following:

C:\Program Files\7-Zip\7zFM.exe C:\Program Files\Adobe\Adobe Bridge 2021\Bridge.exe C:\Program Files (x86)\IObit\Advanced SystemCare\ASC.exe C:\Windows\SysWOW64\calc.exe C:\Windows\SysWOW64\charmap.exe C:\Program Files\Google\Chrome\Application\chrome.exe

I don't know anything about using Shell APIs although I did get somewhere with the AUMIDs for installed apps and Windows Store apps. I have those working but don't know how to get the icons for them? The idea I'm working on to get the list of executable paths for installed programs is that if I can find out how to do this programmatically then I could just extract this list at runtime directly from the user's computer as each computer has different installed programs! I think this would be more efficient and probably requires less code and manual tasks to achieve!
John Wilkinson 1 Reputation point

2022-09-22T16:56:51.607+00:00

@Castorix31 If you have any suggestions about Shell APIs that I can learn from, i.e. how to get the list I'm looking for, I want to learn!

Answer 2

Add the dotnet-visual-basic tag or it is off-topic...

A sample using Shell interfaces to display Applications folder :

        Dim GUID_IShellItem As Guid = GetType(IShellItem).GUID  
        Dim psi As IntPtr = IntPtr.Zero  
        Dim hr As HRESULT = SHCreateItemFromParsingName("shell:::{4234d49b-0245-4df3-b780-3893943456e1}", IntPtr.Zero, GUID_IShellItem, psi)  
        If (hr = HRESULT.S_OK) Then  
            Dim pShellItem As IShellItem = CType(Marshal.GetObjectForIUnknown(psi), IShellItem)  
            Dim BHID_EnumItems As New Guid("94f60519-2850-4924-aa5a-d15e84868039")  
            Dim pEnumItemsPtr As IntPtr = IntPtr.Zero  
            hr = pShellItem.BindToHandler(IntPtr.Zero, BHID_EnumItems, GetType(IEnumShellItems).GUID, pEnumItemsPtr)  
            If (hr = HRESULT.S_OK) Then  
                Dim pEnumShellItems As IEnumShellItems = CType(Marshal.GetObjectForIUnknown(pEnumItemsPtr), IEnumShellItems)  
                Dim nFetched As UInteger = 0  
                Dim pShellItem2 As IShellItem = Nothing  
                Dim nCpt = 1  
                While ((HRESULT.S_OK = pEnumShellItems.Next(1, pShellItem2, nFetched)) AndAlso (nFetched = 1))  
                    Dim sbDisplayName As Text.StringBuilder = New Text.StringBuilder(260)  
                    hr = pShellItem2.GetDisplayName(SIGDN.SIGDN_NORMALDISPLAY, sbDisplayName)  
                    Dim pStorePtr As IntPtr = IntPtr.Zero  
                    Dim BHID_PropertyStore As New Guid("0384e1a4-1523-439c-a4c8-ab911052f586")  
                    hr = pShellItem2.BindToHandler(IntPtr.Zero, BHID_PropertyStore, GetType(IPropertyStore).GUID, pStorePtr)  
                    If (hr = HRESULT.S_OK) Then  
                        Dim pStore As IPropertyStore = CType(Marshal.GetObjectForIUnknown(pStorePtr), IPropertyStore)  
                        Dim nCount As UInteger = 0  
                        pStore.GetCount(nCount)  
                        For i As Integer = 0 To nCount - 1  
                            Dim pk As PROPERTYKEY  
                            hr = pStore.GetAt(i, pk)  
                            If (hr = HRESULT.S_OK) Then  
                                Dim sbPropKeyName As System.Text.StringBuilder = New System.Text.StringBuilder(256)  
                                hr = PSGetNameFromPropertyKey(pk, sbPropKeyName)  
                                If (sbPropKeyName.ToString() = "System.Link.TargetParsingPath") Then  
                                    Dim pvValue As PROPVARIANT = New PROPVARIANT()  
                                    hr = pStore.GetValue(pk, pvValue)  
                                    If (hr = HRESULT.S_OK) Then  
                                        Dim sbValue As System.Text.StringBuilder = New System.Text.StringBuilder(1024)  
                                        hr = PropVariantToString(pvValue, sbValue, CUInt(sbValue.Capacity))  
                                        Dim sValue As String = sbValue.ToString()  
                                        Dim sExtension = Path.GetExtension(sValue)  
                                        If (sExtension = ".exe") Then  
                                            Dim pvValueArguments As PROPVARIANT = New PROPVARIANT()  
                                            hr = pStore.GetValue(PKEY_Link_Arguments, pvValueArguments)  
                                            Dim sbValueArguments As System.Text.StringBuilder = New System.Text.StringBuilder(1024)  
                                            hr = PropVariantToString(pvValueArguments, sbValueArguments, CUInt(sbValueArguments.Capacity))  
                                            Dim sValueArguments As String = sbValueArguments.ToString()  
                                            Console.WriteLine(String.Format("Application n° {0}", nCpt.ToString()))  
                                            Console.WriteLine(String.Format(vbTab + "Name : {0}", sbDisplayName.ToString()))  
                                            Console.WriteLine(String.Format(vbTab + "Executable : {0}", sValue))  
                                            If (sValueArguments <> "") Then  
                                                Console.WriteLine(String.Format(vbTab + "Arguments : {0}", sValueArguments))  
                                            End If  
                                            nCpt += 1  
                                            Exit For  
                                        End If  
                                    End If  
                                End If  
                                If (sbPropKeyName.ToString() = "System.AppUserModel.PackageInstallPath") Then  
                                    Dim pvValue As PROPVARIANT = New PROPVARIANT()  
                                    hr = pStore.GetValue(pk, pvValue)  
                                    If (hr = HRESULT.S_OK) Then  
                                        Dim sbValue As System.Text.StringBuilder = New System.Text.StringBuilder(1024)  
                                        hr = PropVariantToString(pvValue, sbValue, CUInt(sbValue.Capacity))  
                                        Dim sValue As String = sbValue.ToString()  
                                        Console.WriteLine(String.Format("Application n° {0}", nCpt.ToString()))  
                                        Console.WriteLine(String.Format(vbTab + "Name : {0}", sbDisplayName.ToString()))  
                                        Console.WriteLine(String.Format(vbTab + "PackageInstallPath : {0}", sValue))  
                                    End If  
                                End If  
                                If (sbPropKeyName.ToString() = "System.AppUserModel.PackageFullName") Then  
                                    Dim pvValue As PROPVARIANT = New PROPVARIANT()  
                                    hr = pStore.GetValue(pk, pvValue)  
                                    If (hr = HRESULT.S_OK) Then  
                                        Dim sbValue As System.Text.StringBuilder = New System.Text.StringBuilder(1024)  
                                        hr = PropVariantToString(pvValue, sbValue, CUInt(sbValue.Capacity))  
                                        Dim sValue As String = sbValue.ToString()  
                                        Console.WriteLine(String.Format(vbTab + "PackageFullName : {0}", sValue))  
                                        nCpt += 1  
                                        Exit For  
                                    End If  
                                End If  
                            End If  
                        Next  
                        Marshal.ReleaseComObject(pStore)  
                    End If  
                End While  
                Marshal.ReleaseComObject(pShellItem2)  
                Marshal.Release(pEnumItemsPtr)  
            End If  
            Marshal.ReleaseComObject(pShellItem)  
        End If

with declarations :

    Public Enum HRESULT As Integer  
    S_OK = 0  
    S_FALSE = 1  
    E_NOINTERFACE = &H80004002  
    E_NOTIMPL = &H80004001  
    E_FAIL = &H80004005  
    E_UNEXPECTED = &H8000FFFF  
End Enum  

<ComImport()>  
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>  
<Guid("43826D1E-E718-42EE-BC55-A1E261C37BFE")>  
Public Interface IShellItem  
    <PreserveSig()>  
    Function BindToHandler(ByVal pbc As IntPtr, ByRef bhid As Guid, ByRef riid As Guid, ByRef ppv As IntPtr) As HRESULT  
    Function GetParent(ByRef ppsi As IShellItem) As HRESULT  
    Function GetDisplayName(ByVal sigdnName As SIGDN, ByRef ppszName As System.Text.StringBuilder) As HRESULT  
    Function GetAttributes(ByVal sfgaoMask As UInteger, ByRef psfgaoAttribs As UInteger) As HRESULT  
    Function Compare(ByVal psi As IShellItem, ByVal hint As UInteger, ByRef piOrder As Integer) As HRESULT  
End Interface  

Public Enum SIGDN As Integer  
    SIGDN_NORMALDISPLAY = &H0  
    SIGDN_PARENTRELATIVEPARSING = &H80018001  
    SIGDN_DESKTOPABSOLUTEPARSING = &H80028000  
    SIGDN_PARENTRELATIVEEDITING = &H80031001  
    SIGDN_DESKTOPABSOLUTEEDITING = &H8004C000  
    SIGDN_FILESYSPATH = &H80058000  
    SIGDN_URL = &H80068000  
    SIGDN_PARENTRELATIVEFORADDRESSBAR = &H8007C001  
    SIGDN_PARENTRELATIVE = &H80080001  
End Enum  

<ComImport(),  
InterfaceType(ComInterfaceType.InterfaceIsIUnknown),  
Guid("70629033-e363-4a28-a567-0db78006e6d7")>  
Public Interface IEnumShellItems  
    <PreserveSig()>  
    Function [Next](ByVal celt As UInteger, ByRef rgelt As IShellItem, ByRef pceltFetched As UInteger) As HRESULT  
    Function Skip(ByVal celt As UInteger) As HRESULT  
    Function Reset() As HRESULT  
    Function Clone(ByRef ppenum As IEnumShellItems) As HRESULT  
End Interface  

<DllImport("Shell32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)>  
Public Shared Function SHCreateItemFromParsingName(pszPath As String, pbc As IntPtr, ByRef riid As Guid, ByRef ppv As IntPtr) As HRESULT  
End Function  

<DllImport("Propsys.dll", SetLastError:=True, CharSet:=CharSet.Unicode)>  
Public Shared Function PSGetNameFromPropertyKey(ByRef propkey As PROPERTYKEY, ByRef ppszCanonicalName As System.Text.StringBuilder) As HRESULT  
End Function  

<DllImport("Propsys.dll", SetLastError:=True, CharSet:=CharSet.Unicode)>  
Public Shared Function PropVariantToString(ByRef propvar As PROPVARIANT, psz As System.Text.StringBuilder, cch As UInteger) As HRESULT  
End Function  

<ComImport, Guid("886D8EEB-8CF2-4446-8D02-CDBA1DBDCF99"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>  
Interface IPropertyStore  
    Function GetCount(<Out> ByRef propertyCount As UInteger) As HRESULT  
    Function GetAt(<[In]> propertyIndex As UInteger, <Out, MarshalAs(UnmanagedType.Struct)> ByRef key As PROPERTYKEY) As HRESULT  
    Function GetValue(<[In], MarshalAs(UnmanagedType.Struct)> ByRef key As PROPERTYKEY, <Out, MarshalAs(UnmanagedType.Struct)> ByRef pv As PROPVARIANT) As HRESULT  
    Function SetValue(<[In], MarshalAs(UnmanagedType.Struct)> ByRef key As PROPERTYKEY, <[In], MarshalAs(UnmanagedType.Struct)> ByRef pv As PROPVARIANT) As HRESULT  
    Function Commit() As HRESULT  
End Interface  

<StructLayout(LayoutKind.Sequential, Pack:=4)>  
Public Structure PROPERTYKEY  
    Private fmtid As Guid  
    Private pid As Integer  

    Public ReadOnly Property FormatId As Guid  
        Get  
            Return Me.fmtid  
        End Get  
    End Property  

    Public ReadOnly Property PropertyId As Integer  
        Get  
            Return Me.pid  
        End Get  
    End Property  

    Public Sub New(formatId As Guid, propertyId As Integer)  
        Me.fmtid = formatId  
        Me.pid = propertyId  
    End Sub  
End Structure  

<StructLayout(LayoutKind.Sequential)>  
Public Structure PROPARRAY  
    Public cElems As UInteger  
    Public pElems As IntPtr  
End Structure  

<StructLayout(LayoutKind.Explicit, Pack:=1)>  
Public Structure PROPVARIANT  
    <FieldOffset(0)>  
    Public varType As UShort  
    <FieldOffset(2)>  
    Public wReserved1 As UShort  
    <FieldOffset(4)>  
    Public wReserved2 As UShort  
    <FieldOffset(6)>  
    Public wReserved3 As UShort  
    <FieldOffset(8)>  
    Public bVal As Byte  
    <FieldOffset(8)>  
    Public cVal As SByte  
    <FieldOffset(8)>  
    Public uiVal As UShort  
    <FieldOffset(8)>  
    Public iVal As Short  
    <FieldOffset(8)>  
    Public uintVal As UInt32  
    <FieldOffset(8)>  
    Public intVal As Int32  
    <FieldOffset(8)>  
    Public ulVal As UInt64  
    <FieldOffset(8)>  
    Public lVal As Int64  
    <FieldOffset(8)>  
    Public fltVal As Single  
    <FieldOffset(8)>  
    Public dblVal As Double  
    <FieldOffset(8)>  
    Public boolVal As Short  
    <FieldOffset(8)>  
    Public pclsidVal As IntPtr  
    <FieldOffset(8)>  
    Public pszVal As IntPtr  
    <FieldOffset(8)>  
    Public pwszVal As IntPtr  
    <FieldOffset(8)>  
    Public punkVal As IntPtr  
    <FieldOffset(8)>  
    Public ca As PROPARRAY  
    <FieldOffset(8)>  
    Public filetime As System.Runtime.InteropServices.ComTypes.FILETIME  
End Structure  

Public Shared ReadOnly PKEY_Link_TargetParsingPath As PROPERTYKEY = New PROPERTYKEY(New Guid("B9B4B3FC-2B51-4A42-B5D8-324146AFCF25"), 2)  
Public Shared ReadOnly PKEY_Link_Arguments As PROPERTYKEY = New PROPERTYKEY(New Guid("436F2667-14E2-4FEB-B30A-146C53B5B674"), 100)

Share via

How do I get all file paths from folder and subfolders?

2 answers

Your answer