[3booody]

تفضل اخ علي هذا الكود

كود :

Dim File As New IO.FileInfo(TextBox1.Text)
        MsgBox(DateDiff("s", CDate(File.LastWriteTime), CDate(Date.Now)))

الكود يحسب الفرق حسب الثواني s اذا اردت حسب الساعات غير S الى h واذا اردت حسب الدقائق غيرها الى n