Dim dMin As Date = Date.Today.AddHours(-4) Dim dMax As Date = Date.Today.AddHours(5) For Each sFileName As String In My.Computer.FileSystem.GetFiles("C:") If My.Computer.FileSystem.GetFileInfo(sFileName).LastWriteTime >= dMin And _ My.Computer.FileSystem.GetFileInfo(sFileName).LastWriteTime <= dMax Then MessageBox.Show(sFileName) End If Next