Dir og en tekst fil kombineret i ny tekstfil

Hvad så hvis der er flere PDF-filer end der er linier i tekstfilen, skal de så tilføjes? I så fald, hvilken tekst skal de nye filer tildeles i tekstfilen?

Dette script løser det du giver et eksempel på ovenfor, så må du jo sige til hvis det skal kunne mere end det...

Here goes:
---------------
set fso = CreateObject("Scripting.FileSystemObject")
set strmRef = fso.OpenTextFile("pdflist.txt",1)
strRef = strmRef.ReadAll()
strmRef.Close

arrRef = split(lcase(strRef),vbCrLf)

maxRef = ubound(arrRef)

set fldr = fso.GetFolder(".")

' undersøg om de enkelte filer i listen findes...
on error resume next
for i = 0 to maxRef
    arrLnParts = Split(arrRef(i),",")
    set fl = fso.GetFile(fldr.Path & "\" & arrLnParts(0) & ".pdf")
    if err.number <> 0 then
        arrRef(i) = ""
        maxRef = maxRef - 1
        err.clear
    end if
next
on error goto 0

' Kondenser listen, dvs. fjern tomme pladser
ptr = 0
for i = 0 to ubound(arrRef)
    if arrRef(i) <> "" and arrRef(ptr) = "" then
        arrRef(ptr) = arrRef(i)
        arrRef(i) = ""
        ptr = ptr + 1
    end if
    if arrRef(i) <> "" and arrRef(ptr) <> "" then
        ptr = ptr + 1
    end if
next

' skaler array'et efter indholdet
redim preserve arrRef(maxRef)

' gem data tilbage i filen
set strmRef = fso.OpenTextFile("pdflist.txt",2,true)
strmRef.Write(Join(arrRef, vbCrLf))
strmRef.Close

set fso = nothing

Det virker perfekt, gi et svar og du får points.
Tak for hjælpen.

Velbekomme :)

.

Har du problemer med at give point? :)

Yep :o)

Jeg har ikke selv den store efaring med at give point, men det var ude til venstre der var en mulighed for at vælge den eller dem der skal have point og acceptere...

Ok, var ikke lige opmærksom på at man skal vælge når der kun er en...

Godt du fandt ud af det - tak for point :)