VB script for oprettelse af filnavn i txt fil

Hey !
Dette script tjekker c:\test for pdf-filer, og skriver resultatet i c:\resultat.txt

Set FSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const file1 = "c:\resultat.txt"
Set folder = FSO.getfolder("c:\test\")
    For Each filnavn In folder.files

        if ucase(Mid(filnavn.name, Len(filnavn.name)-2,3)) = "PDF" Then
        strinfo = strinfo & filnavn.name & VbCrLf
        End If
    Next

Set fi = FSO.OpenTextFile(file1, ForAppending, true)
fi.WriteLine (strinfo)           
Set fi = Nothing

/Killer

Ja, men jeg glemte at skrive at sciptet skal køre igen og igen, og at det derfor et nødvendigt at den ikke tilføjer i txt filen, men laver en "ren" hver gang.

Så kan du evt. bare slette filen hver gang scriptet køres :

Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.deletefile "c:\resultat.txt"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const file1 = "c:\resultat.txt"
Set folder = FSO.getfolder("c:\test\")
    For Each filnavn In folder.files
        if ucase(Mid(filnavn.name, Len(filnavn.name)-2,3)) = "PDF" Then
        strinfo = strinfo & filnavn.name & VbCrLf
        End If
    Next
Set fi = FSO.OpenTextFile(file1, ForAppending, true)
fi.WriteLine (strinfo)           
Set fi = Nothing

Alternativt kan det laves, så den danner en ny fil hver gang (?)

/Killer

Tak for dit svar, det gav vejen til succes. :o)

Velbekomme :o)
thx for points

Hej igen killeclown

Måske du kunne hjælpe med dette, nu vil jeg nemlig gerne have diretorie navnet med i udtrækket
Altså sådan her:
Test;110631-01.pdf;
Test;110920-01.pdf;
Istedet for
110631-01.pdf;
110920-01.pdf;

Håber du eller en anden har tid til at hjælpe lidt mere !!

Hey der !
Er det altid det samme bibliotek der skal undersøges ?

HOV !
Det er forresten ligegyldigt :o)

Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.deletefile "c:\resultat.txt"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const file1 = "c:\resultat.txt"
Set folder = FSO.getfolder("c:\test\")       
    For Each filnavn In folder.files
        if ucase(Mid(filnavn.name, Len(filnavn.name)-2,3)) = "PDF" Then
        strinfo = strinfo & folder.name & ";" & filnavn.name & VbCrLf
        End If
    Next
Set fi = FSO.OpenTextFile(file1, ForAppending, true)
fi.WriteLine (strinfo)           
Set fi = Nothing

/Killer

Næsten...

Placering er C:\TEST og i TEST er det så TEST1 og TEST2 mapper men når jeg angiver C:\TEST får jeg kun de filnavne der er placeret her ikke dem i TEST1+TEST2