Søg
Avatar billede crapman Nybegynder
22. november 2004 - 10:28 Der er 6 kommentarer og
2 løsninger

Tæl antal billedfiler filer i en mappe

Hejsa,
Jeg har brug for et script der tæller hvor mange jpg, bmp, eps, pdf og tiff filer der ligger i en mappe...

How??

Jeg har følgende som tæller ALLE slags filer...


    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folderObject = fso.GetFolder("e:\xxxxxx\nye_billeder", "jpg"    )
    Set filer = FolderObject.Files

    countpics = 0

    For Each File In filer
    countpics = countpics + 1
    Next
Avatar billede fennec Nybegynder
22. november 2004 - 10:46 #1
Jeg vil tro dette virker (ikke testet):

For Each File In filer
  temp = split(File.name,".")
  ext = temp(ubound(temp))
  if ext="jpg" or ext="bmp" or ext="eps" then
    countpics = countpics + 1
  end if
Next
Avatar billede ldanielsen Nybegynder
22. november 2004 - 10:53 #2
Dette virker og er testet:

For Each File In filer
        thisFileExt = Lcase(Mid(File.Name, InStrRev(File.Name, ".") + 1))
        SELECT Case thisFileExt
            Case "jpg", "gif", "png", "jpe" countpics = countpics + 1
        end select
    Next
Avatar billede ldanielsen Nybegynder
22. november 2004 - 10:56 #3
Indskrive alle de extentions du vil have med, det skal være med små bogstaver. Den havde fennec overset, ellers ser hans udgave ud til at virke. Og han var først
Avatar billede crapman Nybegynder
22. november 2004 - 11:03 #4
Kanon... smid et svar ldanielsen :)
Avatar billede fennec Nybegynder
22. november 2004 - 11:06 #5
Jeg kan nu også bedre lide din løsning ldanielsen. Det er selvfølgelig det eneste rigtige at bruge CASE strukturen. Jeg kan slet ikke forstå jeg overså det :o)
Avatar billede crapman Nybegynder
22. november 2004 - 11:08 #6
Hehe jah... fenec du må vel også hellere smide et lille svar.. så får du et par point eller 3... jeres løsninger er jo som sådan ens...
Avatar billede ldanielsen Nybegynder
22. november 2004 - 11:36 #7
Ja, der er jo mange måder at gøre det på.

Jeg har først lig for nylig opdaget at man kan bruge komma imellem mulighederne i en Case-struktur, og det er jeg lidt glad for, derfor ...
Avatar billede fennec Nybegynder
22. november 2004 - 11:48 #8
Så lad gå da :o)
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
I går 09:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
27/0713:58 Mapperne Dokumenter og Overførsler er forsvundet efter geninstallation af Win11 Af bragger i Windows
White papers
Flere white papers »