Dim fso, TheFolder, TheFiles, AFile
        Dim dd As Date
        dd = "1990.01.01 00:00:00"
        fso = CreateObject("Scripting.FileSystemObject")
        TheFolder = fso.GetFolder("c:\inetpub\wwwroot\folder\")
        TheFiles = TheFolder.Files
        For Each AFile In TheFiles
            If AFile.DateLastModified > dd Then
                dd = AFile.DateLastModified
            End If
            Label1.Text = dd
        Next

        Dim DirInfo As New DirectoryInfo("c:\Inetpub\wwwroot\folder\")
        Dim DirItem As DirectoryInfo
        Dim FileItem As FileInfo
        Dim dd As Date
        dd = "1900.01.01 00:00:00"

        For Each DirItem In DirInfo.GetDirectories
            For Each FileItem In DirItem.GetFiles()
                If FileItem.LastWriteTime > dd Then
                    dd = FileItem.LastWriteTime
                End If
            Next
        Next
        Label1.Text = "Последнее обновление: " & dd

        Dim DirInfo As New DirectoryInfo("c:\Inetpub\wwwroot\folder\")
        Dim DirItem As DirectoryInfo
        Dim FileItem As FileInfo
        Dim dd As Date
        dd = "1900.01.01"

        For Each FileItem In DirInfo.GetFiles()
                If FileItem.LastWriteTime > dd Then
                    dd = FileItem.LastWriteTime
	   End If
        Next

        For Each DirItem In DirInfo.GetDirectories
            For Each FileItem In DirItem.GetFiles()
                If FileItem.LastWriteTime > dd Then
                    dd = FileItem.LastWriteTime
                End If
            Next
        Next
	update.Text = "Последнее обновление: " & dd 
    End If