Jeg har denne funktion til at tjekke for om en fil eksisterer og hvis
den gør bare lave et link til filen, og hvis den ikke gør, hente den
og lave et link til filen.
Nu er problemet at hvis filen hedder det samme men er en anden
størrelse vil den vise den tidligere fil. er det muligt at tjekke om
filstørrelsen er den samme og hvis den ikke er, slette, downloade og
opdatere linket??
Funktionen:
Function getAttachments()
Set Attachments = msg.Attachments
separator = ", "
For i = 0 To Attachments.Count - 1
If i = Attachments.Count - 1 Then
separator = ""
End If
Set fso = CreateObject("Scripting.FileSystemObject")
Set at = Attachments(i)
If fso.FileExists( "path\" & at.Name ) = False Then
at.SaveToFile( "path\" & at.Name )
End If
getAttachments = getAttachments & "<a href=""/path" &_
at.Name &""">" & at.Name & "(" & at.Size & " bytes)" &_
"</a>" & separator
Next
End Function
--
Regards Sir Ghashûl, Knight of The alt.Roundtable <><
ICQ: 7223629 | E-mail: stefan@bruhn.to | URL:
http://www.ghashul.dk
"Love, we need love, You are love, we need You"
SONICFLOOd, We Need You