Как преобразовать дни в часы? - PullRequest
Новая
       4

Как преобразовать дни в часы?

0 голосов
/ 26 мая 2020

Мой код удаляет файлы через определенное количество дней. Однако для большей точности я хочу использовать часы. 

 Public Sub DeleteLastWriteTime(dirLWT As String)
    Try
        If Owner.PluginXML.LastWriteTime Then
            Dim directory As New IO.DirectoryInfo(dirLWT)
            For Each hkfile As IO.FileInfo In directory.GetFiles()
                If (Now - hkfile.LastWriteTime).Hours > Owner.PluginXML.DataAge Then hkfile.Delete()
            Next
            For Each folder As IO.DirectoryInfo In directory.GetDirectories()
                DeleteLastWriteTime(folder.FullName)
            Next
        End If
    Catch ex As Exception
        Log("Error DeleteLastWriteTime", LogLevel.Exception, ex)
    End Try
End Sub

Как я могу преобразовать заданные дни Owner.PluginXML.DataAge в часы? Есть ли команда, которая сделает это за меня?

...