.asp til php5

Nogen der kan hjælpe med at ændre denne .asp fil til php5

Default.asp filen er vist her:

<%

    set fs = CreateObject("Scripting.FileSystemObject")
    set f = fs.GetFolder(Server.MapPath("."))
    ReDim fileNames(f.files.count)
    ReDim fileMod(f.files.count)
        i = 0
    For Each fldr in f.files
          fileNames(i) = fldr.name
          fileMod(i) = fldr.DateLastModified
          i = i + 1
    Next

%>
<table cellpadding="4" cellspacing="0" border="0" width="100%">
  <TR bgcolor="#333333">
    <td><font color="#FFFFFF">Filnavn:</font></TD>
    <TD><font color="#FFFFFF">Sidst ændret:</font></TD>
  </TR>
  <%

tal = 1   
For i = f.files.count - 1 to 0 step -1
    %> <%

If tal = 2 Then
farve = "#999999"
tal = 1
else
tal = tal + 1
farve = "#DFDFDF"
End If

If fileNames(i) <> "default.asp" then
Response.Write "<tr bgcolor='" & farve & "'>"

%>
  <td height="30"><a href="<%= fileNames(i) %>"><%= fileNames(i) %></A></TD>
  <TD height="30"> <%= fileMod(i) %> </TD>
  </TR>
  <%
End If
    Next
    %>
  <tr bgcolor="#333333">
    <td height="6" colspan="4">&nbsp;</TD>
  </TR>

</table>

Har prøvet nogle convert programmer som alligevel ikke virker. !