Visual Basic

Sub Main()
        Dim arrHeaders(35)

        Dim shell As New Shell32.Shell
        Dim objFolder As Shell32.Folder

        objFolder = shell.NameSpace("\\PDMHH01\RMSage\GroupRM\SageSP")

        For i = 0 To 34
            arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
        Next
        For Each strFileName In objFolder.Items
            For i = 0 To 34
                Console.WriteLine(i & vbTab & arrHeaders(i) & ": " & bjFolder.GetDetailsOf(strFileName, i))
            Next
        Next
        Console.ReadKey()
End Sub

nhsal69 wrote:

Smashing...

<br />
Imports System.IO<br />
<br />
Public Class Form1<br />
<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
<br />
            ' Loop through all the immediate subdirectories of C.<br />
        For Each entry As String In Directory.GetDirectories("C:\temp\test")<br />
            DisplayFileSystemInfoAttributes(New DirectoryInfo(entry))<br />
        Next<br />
<br />
            ' Loop through all the files in C.<br />
        For Each entry As String In Directory.GetFiles("C:\temp\test")<br />
            DisplayFileSystemInfoAttributes(New FileInfo(entry))<br />
        Next<br />
        End Sub<br />
<br />
        Sub DisplayFileSystemInfoAttributes(ByVal fsi As IO.FileSystemInfo)<br />
            ' Assume that this entry is a file.<br />
            Dim entryType As String = "File"<br />
<br />
            ' Determine if this entry is really a directory.<br />
            If (fsi.Attributes And FileAttributes.Directory) = FileAttributes.Directory Then<br />
                entryType = "Directory"<br />
            End If<br />
<br />
            ' Show this entry's type, name, and creation date.<br />
        Console.WriteLine("{0} entry {1} was created on {2:D}", _<br />
                entryType, fsi.FullName, fsi.LastAccessTime)<br />
<br />
        End Sub<br />
<br />
<br />
End Class<br />

nhsal69 wrote:

Console.WriteLine("{0} entry {1} was created on {2: D}", _
entryType, fsi.FullName, fsi.LastAccessTime)

nhsal69 wrote:

I'm diverse

Luc Pattyn wrote:

Andy Murray does.

Luc Pattyn wrote:

I don't think a fistful of nuts is going to outpace a modern PC,