Automatisk sletting av filer

[rayves]

Er godt i gang med mine VB.NET studier, men har enda ikke kommet langt nok til å løse et lite problem jeg gjerne skulle ha fått løst raskt.

 

Trenger en liten programsnutt som skal ligge på en W2K-server og som ved kjøring sletter alle filer som er eldre enn 7 dager i en bestemt mappe + undermapper.

 

Er det noen som kan forbarme seg over meg og lage et lite forslag til løsning?

 

På forhånd takk,

Rayner

[d0ppler]

her har du en funksjon som returnerer når en fil sist ble endretf for VB 6.0 riktignok:

Public Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long


Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long


Public Declare Function GetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long

Public Declare Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long


Public Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long

Public Const GENERIC_READ = &H80000000


Public Type OFSTRUCT
   cBytes As Byte
   fFixedDisk As Byte
   nErrCode As Integer
   Reserved1 As Integer
   Reserved2 As Integer
   szPathName(OFS_MAXPATHNAME) As Byte
End Type


Public Type SYSTEMTIME
   wYear As Integer
   wMonth As Integer
   wDayOfWeek As Integer
   wDay As Integer
   wHour As Integer
   wMinute As Integer
   wSecond As Integer
   wMilliseconds As Integer
End Type


Public Type FILETIME
   dwLowDateTime As Long
   dwHighDateTime As Long
End Type

Public Function GetModifiedTime(strFile As String) As String
   Dim FTimeCreated As FILETIME
   Dim FTimeModified As FILETIME
   Dim FTimeAccessed As FILETIME
   Dim FLocalTime As FILETIME
   Dim TSystem As SYSTEMTIME
   Dim OpenBuffer As OFSTRUCT
   Dim lngFHandle, lngReturn As Long
   lngFHandle = OpenFile(strFile, OpenBuffer, GENERIC_READ)
   lngReturn = GetFileTime(lngFHandle, FTimeCreated, FTimeAccessed, FTimeModified)
   CloseHandle lngFHandle
   Call FileTimeToLocalFileTime(FTimeModified, FLocalTime)
   Call FileTimeToSystemTime(FLocalTime, TSystem)
   
   With TSystem
       GetModifiedTime = .wYear & .wMonth & .wDay & "-" & .wHour & ":" & .wMinute & ":" & .wSecond
   End With
End Function

 

OFFTOPIC : ikke akurat VELDIG intuitivt nei...