Flytte gamle filer

Du kan bruge funktionen Dir til at finde filnavne og saa teste paa FileDateTime:

eks.
Dime myFile as String
myFile = Dir(C:\minefiler\*.*)
If myFile <> "." and myFile <> ".." and myFile <> "" Then
If FileDateTime(myFile) < Now -10 Then
  ' goer noget
End If
End If

If myFile <> "" Then
Do Until myFile = ""
  myFile = Dir
  If myFile <> "." and myFile <> ".." and myFile <> "" Then
    If FileDateTime(myFile) < Now -10 Then
    ' goer noget
    End If
  End If
Loop
End If

ups:
Dime myFile as String
skal self. vaere
Dim myFile as String

hmm, det er da ikke min dag i dag......

myFile = Dir(C:\minefiler\*.*)
skal self. vaere:
myFile = Dir("C:\minefiler\*.*")

jeg takker mange gange...

hvis du lige vil smide et svar så du kan få dine point..

ping....