|
|
 | Mappe til pdf dokumenter
Fra : hh@post4.netmaster.d~ |
Dato : 23-11-02 22:50 |
|
Hej.
Jeg bruger nedenstående til at vise nogle pdf dokumenter. Men p.t. skal asp
filen og pdf filerne ligge i samme mappe..
Kan man lave det sådan at den kigger ned i en bestem mappe efter pdf
filer...
<%
Dim fso, f, fl, fc, s, N
Function ShowFolderList(FileSpec)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(FileSpec)
Set fc = f.Files
N=1
For Each fl in fc
If UCase(Mid(Fl.Name,Len(Fl.Name)-2,3))="PDF" then
N=N+1
End If
Next
ShowFolderList = N
End Function
FilDir=Server.MapPath(".")
antal=ShowFolderList(FilDir)
%>
| |
 hh@post4.netmaster.d~ (23-11-2002)
| Kommentar
Fra : hh@post4.netmaster.d~ |
Dato : 23-11-02 23:45 |
|
Har selv fundet ud af det...
<hh@post4.netmaster.dk> skrev i en meddelelse
news:3ddff813$0$142$edfadb0f@dread13.news.tele.dk...
> Hej.
>
> Jeg bruger nedenstående til at vise nogle pdf dokumenter. Men p.t. skal
asp
> filen og pdf filerne ligge i samme mappe..
> Kan man lave det sådan at den kigger ned i en bestem mappe efter pdf
> filer...
>
> <%
> Dim fso, f, fl, fc, s, N
> Function ShowFolderList(FileSpec)
> Set fso = CreateObject("Scripting.FileSystemObject")
> Set f = fso.GetFolder(FileSpec)
> Set fc = f.Files
> N=1
> For Each fl in fc
> If UCase(Mid(Fl.Name,Len(Fl.Name)-2,3))="PDF" then
> N=N+1
> End If
> Next
> ShowFolderList = N
> End Function
> FilDir=Server.MapPath(".")
> antal=ShowFolderList(FilDir)
> %>
>
>
>
| |
|
|