Avatar billede webpunkt.dk Nybegynder
16. december 2001 - 18:40 Der er 8 kommentarer og
2 løsninger

Søge efter BMP filer i et dir....

Hejsa,

Jeg har et script her, som søger i en mappe efter BMP filer...
Det jeg gerne vil have den til, er at den også søger i alle undermapper, som der er i root mappen.

Kan det lade sig gøre, og hvordan skal det så skrives?

------------------------------------------------------

<%
    Dim fso
        Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Dim folder
        Set folder = fso.GetFolder(Server.MapPath(\"/\"))
       
    If folder.Size > 0 Then
        For Each file In folder.Files
            If Right(file.name, 3) = \"BMP\" then
                Response.write \"<tr>\"
                Response.Write \"<td><a href=\"\"\" & file.Name & \"\"\">\"
                Response.Write \"<b>\" & file.Name & \"</b></a></td>\"
                Response.Write \"<td align=\'center\'>( \" & file.Size & \" )</td>\"
                Response.write \"</tr>\"
            End If
        Next
    Else
        Response.Write \"<center>Der er ingen BMP\'er i dette biblotek!</center>\"
    End If
%>

På Forhånd Tak
Mvh
Daniel Dipó - Team Webpunkt.dk
Avatar billede invisibleman Nybegynder
16. december 2001 - 18:43 #1
Jeg har faktisk lavet noget lign i VB med FSO .. lige et sec .. det er sikkert 100% kompatiblet med ASP ..
Avatar billede webpunkt.dk Nybegynder
16. december 2001 - 18:52 #2
Okay, jeg venter lige 1 sek :)
Avatar billede invisibleman Nybegynder
16. december 2001 - 19:04 #3
Sub DirWalk(CurDir)
    Set f = fso.GetFolder(CurDir)
    Set fc = f.Subfolders

    For Each f1 In fc
        DirWalk f1
    Next

    Set fj = f.Files
    For Each f1 In fj
        If LCase(Right(f1, 4)) = \".bmp\" Then Response.Write f1
    Next
End Sub

DirWalk \"C:\\\"

søger hele C:\\ igennem ..
Avatar billede webpunkt.dk Nybegynder
16. december 2001 - 19:30 #4
Vil du være venlig, at sætte den sammen, så den er \"færdig-lavet\"?

Så lægger jeg lige 15 point ekstra i, for anstrengelsen
Avatar billede webpunkt.dk Nybegynder
16. december 2001 - 19:30 #5
Jeg, øhm...kan ikke finde ud af ASP, så det er derfor :)
Avatar billede invisibleman Nybegynder
16. december 2001 - 19:34 #6
*G*

<%
Sub DirWalk(CurDir)
    Set f = fso.GetFolder(CurDir)
    Set fc = f.Subfolders

    For Each f1 In fc
        DirWalk f1
    Next

    Set fj = f.Files
    For Each f1 In fj
        If LCase(Right(f1, 4)) = \".bmp\" Then Response.Write f1
    Next
End Sub

DirWalk Server.MapPath(\"/\")
%>

Sådan :-) Det skulle gerne vise alle BMP filer ... i alle undermapper
Avatar billede webpunkt.dk Nybegynder
16. december 2001 - 20:06 #7
Jeg får denne fejl:

Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a01a8\'
Et objekt er obligatorisk: \'fso\'

/1.asp, linje 19
Avatar billede invisibleman Nybegynder
16. december 2001 - 20:09 #8
*LOL* jeg har glemt den mest vigtige del .. sorry:

<%
Set fso = CreateObject(\"Scripting.FileSystemObject\")

Sub DirWalk(CurDir)
    Set f = fso.GetFolder(CurDir)
    Set fc = f.Subfolders

    For Each f1 In fc
        DirWalk f1
    Next

    Set fj = f.Files
    For Each f1 In fj
        If LCase(Right(f1, 4)) = \".bmp\" Then Response.Write f1
    Next
End Sub

DirWalk Server.MapPath(\"/\")
%>

hvis det ikke virker så prøv med:

<%

Sub DirWalk(CurDir)
    Set fso = CreateObject(\"Scripting.FileSystemObject\")
    Set f = fso.GetFolder(CurDir)
    Set fc = f.Subfolders

    For Each f1 In fc
        DirWalk f1
    Next

    Set fj = f.Files
    For Each f1 In fj
        If LCase(Right(f1, 4)) = \".bmp\" Then Response.Write f1
    Next
End Sub

DirWalk Server.MapPath(\"/\")
%>

den burde dog være en del langsommere ...
Avatar billede webpunkt.dk Nybegynder
16. december 2001 - 20:18 #9
Den øverste virker vidst :)

Men kan man ikke fjerne:
D:\\Internet\\wwwroot\\

Altså stien på computeren...sådan at kun selve navnet kommer frem?
Avatar billede webpunkt.dk Nybegynder
26. december 2001 - 13:24 #10
Jeg kunne ikke bruge det helt vildt, men vi splitter point så :-)
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