Hej

Jag försöker att deleta en fil med filändelse .txt om CreationDate är minst en dag.
Jag är nybörjare när det gäller scripting så ha överseende med detta om det är rent löjligt...
Jag har gjort så här:

##################################

Dim filesys, demofolder, fil, filecoll, f
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder("c:\jokes")
Set filecoll = demofolder.Files


For Each fil in filecoll
If filesys.FileExists("c:\Jokes\*.txt") AND Fil.DateCreated > Date -1 Then
filesys.DeleteFile "c:\Jokes\*.txt"
msgbox("File was created " & Fil.DateCreated & _
vbcrlf & _
"File Deleted")
else
msgbox("File Name " & fil.name & _
vbcrlf & _
"File was created " & Fil.DateCreated & _
vbcrlf & _
"File Not Deleted")
End If
Next

#####################################################

Jag har även provat att lägga in GetExtensionName men det funkade inte för mig.
Eftersom jag inte vet filnamnet utan bara extension måste man gå på datum.
Dag är viktigt ej tid.

Hoppas att ni vill hjälpa en snart flintskallig...jag sliter mitt hår...

/ Vipers

Om du använder vb bör du lägga till referens till "Microsoft Scripting Runtime". Detta kan vara till hjälp:
<code>
Dim FSO As Scripting.FileSystemObject
Dim File As Scripting.File
Dim Folder As Scripting.Folder
Dim TimeOut As Date
TimeOut = Date - 1
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("G:\jokes")

For Each File In Folder.Files
If LCase(Right(File.Name, 4)) = ".txt" And File.DateCreated < TimeOut Then
File.Delete
Debug.Print "File (Deleted): "; File.Name & ", created " & File.DateCreated
Else
Debug.Print "File: "; File.Name & ", created " & File.DateCreated
End If
Next
</code>

Tack för det, nu funkar det som det är tänkt.

Och håret får börja växa igen :)

/ Vipers