Public Sub GetFileProperties(ByVal path As String) If File.Exists(path) Then Dim shell As New Shell32.Shell Try Dim fld As Shell32.Folder = shell.NameSpace(path) Catch ex As Exception End Try End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)