Avatar billede nwt Nybegynder
26. april 2007 - 19:09 Der er 5 kommentarer og
1 løsning

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

Jeg skal have overvåget flere mapper på mit lokalnetværk (2 forskellige unixservere), og talt op hvor mange filer der ligger i de pågældende mapper. Stien til mapperne skal anfives med unc eks.vis "\\server11\records290507\" (ikke drevbetegnelse) Siden skal præsenteres på mit intranet (skal være asp), og siden skal opdateres hvert minut.
Hvis antallet af filer i en given mappe overstiger f.eks. 10 stk. skal der sendes en mail eller markeres på siden (antallet skifter f.eks. fra sort til rød skrift).
Avatar billede mitbrugernavn Praktikant
27. april 2007 - 14:12 #1
du må have noget kode du har sat op som du ikke kan få til at funke ?????? eller hva''''
Avatar billede nwt Nybegynder
30. april 2007 - 09:08 #2
Jeg har en kode der viser filnavnene vha. filesystemObject, men kan ikke få count til at virke
Avatar billede nwt Nybegynder
30. april 2007 - 09:10 #3
<%    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)
%>
Avatar billede mitbrugernavn Praktikant
04. maj 2007 - 11:10 #4
' 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
Avatar billede nwt Nybegynder
07. maj 2007 - 09:25 #5
tak :-)
Avatar billede nwt Nybegynder
07. maj 2007 - 09:25 #6
:-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester