Antal filer i mappe angivet via unc-sti (ikke drevbetegnelse)

du må have noget kode du har sat op som du ikke kan få til at funke ?????? eller hva''''

Jeg har en kode der viser filnavnene vha. filesystemObject, men kan ikke få count til at virke

<%    rootpath = "\\filessrv\Sypress\epshandler\NOT_R_or_P"
    level = 0
    Response.Write " <a href='\\filserver\Volume1\Mappe1\NOT_R_or_P' target='_blank'><font color='#FF0000' face='Arial Black'>NOT R or P</font></a></h3><br>"
%>

      <h4>
<%
   
    sub getPath(strPath,level)
        Set fsObj = CreateObject("Scripting.FileSystemObject")
        Set MainFolder = fsObj.GetFolder(strPath)
        Set Files = MainFolder.Files
       

        For Each File in Files
            for a = 1 to level
                Response.Write "&nbsp;"
            next
                response.write "<IMG SRC='reddotblink.gif' align='absbottom'> <a href='" & rootpath  & "/" & LCASE(file.name) & "'>" & LCASE(file.name) & "</a><br>"
        next

        set fsObj = Nothing
        set MainFolder = Nothing
    end sub
   
    call getPath(rootpath,level)
%>

' det er fordi at du har angivet dit level til 0

      Set fsObj = CreateObject("Scripting.FileSystemObject")
        Set MainFolder = fsObj.GetFolder(rootpath)
        Set Files = MainFolder.Files
       
  For Each File in Files
          level = level + 1
            next

        For Each File in Files
    filnavn =file.name
            for a = 1 to level
                Response.Write "&nbsp;"
            next
                response.write "<IMG SRC='reddotblink.gif' align='absbottom'> <a href='" & rootpath  & "/" & LCASE(fil_navn) & "'>" & LCASE(fil_navn) & "</a><br>"
        next

        set fsObj = Nothing
        set MainFolder = Nothing

'undskyld det sene svar men der er da vist ged i mailforsendelsen hos experten

tak :-)

:-)