[ASP] Wildcards met FileExists

[Verwijderd]

Ik heb de volgende code:

ASP:

<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists("[b]E:\Webuploads\*.pdf[/b]")=true then
   response.write("PDF exists!")
else
   response.write("PDF does not exist!")
end if
set fs=nothing
%>

Ik zoeknaar een bestand met een PDF-extensie. Het probleem is dat FileExists geen wildchars ondersteunt. Iemand een idee hoe ik dit kan oplossen?

[ Voor 1% gewijzigd door RobIII op 07-09-2006 20:44 ]

[RobIII]

Je hebt het over wildcards, niet wildchars. Dat googled waarschijnlijk al een stuk makkelijker

[Verwijderd]

Dat bedoek ik ook. Ik heb veel ge-google-ed (naar wildcards), maar kon er weinig over vinden.

[ Voor 5% gewijzigd door Verwijderd op 07-09-2006 20:51 ]

[RobIII]

Verwijderd schreef op donderdag 07 september 2006 @ 20:50:
Dat bedoek ik ook. Ik heb veel ge-google-ed (naar wildcards), maar kon er weinig over vinden.

Je kunt ook (om het simpel te houden) de inhoud van een directory uitlezen, door de resultaten itereren en kijken of de right(lcase(myvar,4)) = ".pdf"
Daar is zat op te vinden, trust me

[ Voor 5% gewijzigd door RobIII op 07-09-2006 20:53 ]

[whoami]

Da's ook de enige mogelijke oplossing denk ik; een search doen in die directory met wildcards (dat moet wel lukken), en dan de results checken

[Verwijderd]

Ga ik daarop verder zoeken, bedankt.

[Mickman]

Probeer anders zoiets.

code:

Dim objFSO
Dim objFolder
Dim objFile
Dim colFiles
Dim bFoundFile
Dim sFilePaths

Const sSearchFolder = "E:\Webuploads"
bFoundFile = False

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(sSearchFolder)
Set colFiles = objFolder.Files

For Each objFile In colFiles
    If Right(LCase(objFile.Name,4)) = ".pdf" Then
        bFoundFile = True
        sFilePaths = sFilePaths & objFile.Path & vbCrLf
    End If
Next

If bFoundFile = True Then
    response.write("PDF exists!")
    response.write(sFilePaths)
Else
    response.write("PDF does not exist!")
End If

Set colFiles = Nothing
Set objFolder = Nothing
Set objFSO = Nothing

[gorgi_19]

Waarom spring je niet uit de For-loop indien je een waarde gevonden hebt?